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1. ABSTRACT 



IHIS PROGRAM CONTAINS A SERIES OF BASIC LOGIC TESTS 
THAT CHECK THE TAU FOR PROPER OPERATION* 

2, REQUIREMENTS 

2.1 EQUIPMENT 

PDP-11 COMPUTER WITH OR WITHOUT HARDWARE SWITCH REGISTER 
WITH CONSOLE TELETYPE? AND A TA1I CASSETTE 

2.2 STORAGE 

THIS PROGRAM REQUIRES APPROX. 4K STORAGE, 

2.3 PRELIMINARY PROGRAMS 

MAINDEC-H-DZTAA 

MAINDEC-li-DETAB 

3, LOADING PROCEDURE 

USE STANDARD PROCEDURE FOP LOADING ®ABS TAPES 
OR A CASSETTE TAPE® 

4® STARTING PROCEDURE 

4.1 CONTROL SWITCH SETTINGS 

SEE 5.1 t 

4 @ 2 STARTING ADDRESSES 

200 NORMAL STARTING ADDRESS 

204 SELECT DRIVE(S) BEFORE STARTING TEST 

210 SELECT DRIVE(S) AND ADDRESSES BEFORE STARTING TEST 

214 SETUP FOR MANUAL LOOPING 

220 WRITE FILE GAP FROM BOT TO EOT 

224 WRITE C0NTIN0U5 BLOCKS OF DATA 

230 READ CONTINOUS BLOCKS OF DATA 

234 WRITE FILE GAP AND A BLOCK OF DATA 

240 READ BLOCK OF DATA AND INTO A FILF, GAP 

244 SPACE FWD FILE GAP FROM BOT TO EOT 

250 BACK SPACE FILE GAPS 

500 LOAD SWITCH REGISTER INTO THE TAGS 

600 WRITE SWITCH REGISTER ON TAPE FROM BOT TO EOT 

700 READ FROM BOX TO EOT 



4*3 PROGRAM & OPERATOR ACTION 

1, LOAD PROGRAM INTO MEMORY (SEE. SECTION 3,) 

2 S LOAD A WRITE ENABLED CASSETTE IN BOTH DRIVES 

3. REWIND BOTH DRIVES 

4 @ LOAD ADDRESS 200. 

5, SET SWITCHES (SEE SECTION 5.1) 

h* PRESS START, 

7® THE PROGRAM WILL TYPE INSTRUCTIONS ON THE TTY FOR 
THE OPERATOR TO FOLLOW. AFTER THE OPEkATOR HAS 
PERFORMED THE REQUIRED OPERATION HE l« ILL PRESS 
^CARRIAGE RETURN" AND THE PROGRAM WILL CONTINUE® 

### NOTEI IF USING THE SOFTWARE SWITCH REGISTER THE 

PROGRAM WILL TYPE M SWRrXXXXXX NEW™'* AFTER TYPING 
THE NAME OF THE PROGRAM 
4.3,1 DRIVE SELECTION 

STARTING THE PROGRAM AT 200 WILL RESULT IN AUTOMATIC 
SELECTION OF DRIVES "A" AND **B» TO BE TESTED, 
NOTEl IF LOAD MEDIUM Is CASSETTE WITH STANDARD VECTOR 
PROGRAM WILL RESPOND AS IF STARTED AT 210* 

STARTING THE PROGRAM AT 204, 210, OR 214 ALLOWS THE OPERATOR 
TO SELECT THE DRIVE(S) TO BE TESTED, 

THE PROGRAM WILL TYPE W DRIVE(S)? M 8 

EITHER OR BOTH DRIVES CAN BE SELECTED BY TYPING M A" AND/OR 
N B 81 FOLLOWED BY A CARRIAGE RETURN, 

4.3.1.1 DRIVE SELECTION EXAMPLES 

DRIVE(S)? A,B 
DRIVE(S)? AB 
DRIVE(S)? B,A 
DRIVE(S)? B 



4®3 @ 2 ADDRESS SELECTION 

STARTING THE PROGRAM AT 210 OR 214 ALLOWS THE OPERATOR 
TO CHANGE THE "CONTROL AND STATUS" AND "DATA BUFFER" 
REGISTER ADDRESSES, THE VECTOR ADDRESS AND THE 
PRIORITY LEVEL. 

THE PROGRAM WILL ASK FOR THE DRIVES TO BE TESTED AS PER 
4.3,1. AFTER THE DRIVES HAVE BEEN SELECTED IT WILL ASK 
FOR^ 

1. BUS ADDRESS OF THE CONTROL AND STATUS REGISTER (TACS) 

2 @ VECTOR ADDRESS 

3® PRIORITY LEVEL 

AND THE OPERATOR MUST RESPOND WITH THE DESIRED PARAMETER 
OR A CARRIAGE RETURN (WHICH IMPLIES LEAVE AS IS), 
WHEN ALL PARAMETERS HAVE BEEN DEFINED THE PROGRAM 
WILL TtfPE THEM BACK OUT AND ASK IF THEY APE OK AT 
WHICH TIME THE OPERATOR RESPONSES WITH A "¥" OR A 
^CARRIAGE RETURN" FOR W YES W ANYTHING ELSE IS A w NO«. 

4.3.2.1 ADDRESS SELECTION EXAMPLES 

DRIVESCS) A 

TACS? 177500 

VECTOR? 260 

PRIORITY? 6 

TACS~!77500 TADB-177502 VECTOP.= 000260 PRIOR1TY=000300 

OK? 

DRIVESCS) A,B 

TACS? 470 

VECTOR? 

PRIORITY? 

TACSsl77470 TADBsl77472 VECTOR-000260 PRIORITY=000300 

OK? 



5, OPERATING PROCEDURE 

5.1 OPERATIONAL SWITCH SETTINGS 



IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH 
REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS 
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER® 
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
AND IT CONTAINS ALL ONES (111111) THEN THE SOFTWARE SWITCH 
REGISTER (LOC, 176) IS USED. 

CONTROL! 

THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER CLOC, 176) FROM THE TTY^ THIS CAN BE ACCOMPLISHED BY 
DOING THE FOLLOWING: 

1) TYPE CONTROL G <*G>; THIS WILL ALLOW THE TTY TO ENTER DATA INTO 
LOC, 176 AT SELECTED POINTS WITHIN THE PROGRAM. 

2) THE MACHINE WILL THEN TYPEl SWR-XXXXXXNEW- (XXXXXX IS THE OCTAL CONTENTS 
OF THE SOFTWARE SWITCH REGISTER.) 

3) AFTER THE *'NEW=* r HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 

A) TYPE A NUMBER TO BE LOADED INTO LOC* 176 FOLLOWED BY A <CR> 8 
(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 
WILL BE ALLOWED) 

IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED, 

B) IF A CONTROL U <*U> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
BACK TO STEP 2. 

WITH SW<15l08>~0 THE PROGRAM WILL PRINT OUT ON 
ERRORS AND CONTINUE IN TEST, BELL WILL RING 
AT COMPLETION OF A PASS, 
THE SWITCH SETTINGS APEs 

SW<i5>=l...HALT ON ERROR 
5W<14>=1...L00P ON TEST 
SW<13>=1... INHIBIT ERROR TYPEOUTS 
SW<11>=1.., INHIBIT ITERATIONS 
SW<10>=1,, # RING BELL ON ERROR 
5W<10>=0.,.RING BELL ON PASS COMPLETE 
SW<09>sl...LOOP ON ERROR 

SW<08>=t...LOOP ON TEST AS PER SW<07l00> 
SW<07>sfl...LOCK ON CURRENT DRIVE (ONLY VALID 

FOR STARTING ADDRESSES 220 THRU 250). 



5/2 SUBROUTINE ABSTRACTS 

5,2.1 SCOPE 

THIS SUBROUTINE CALL (VIA AM IOT INSTRUCTION) IS PLACED BETWEEN 
EACH TEST IN THE INSTRUCTION SECTION. IT RECORDS THE STARTING 
ADDRESS OF EACH TEST IN LOCATION "SLPAPR" AND ,? $LPERR M AS IT IS 
BEING ENTERED, 

THIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS 
5*2.2 TRAPCATCHER 

A ".+2" - ^HALT* SEQUENCE IS REPEATED FROM LOC . TO LOC . 776 
TO CATCH ANY UNEXPECTED TRAPS* THUS* ANY UNEXPECTED TRAPS WILL 
HALT AT THE DEVICE TRAP VECTOR *2« 

5.2.3 ERROR 

THIS SUBROUTINE CALL (VIA A EMT INSTRUCTION) IS USED TO REPORT 

ALL ERRORS, (REFER TO 6.) 

&## THIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS 

**# IF THE PROCESSOR HALTS (BIT lSsl), OPERATOR 

CAN RESET S/W SWITCH REGISTER BY HITTING A 

^CONTROL G" <**G> BEFORE HITTING CONTINUE. 

5.2.4 TRAP 

A NUMBER OF SUBROUTINES ARE CALLED BY THE TRAP INSTRUCTION. 
FOLLOWING IS THE CALLS USED AND THE LABEL OF THE STARTING 
ADDRESS OF THE SUBROUTINES. 

5,2,4a TYPE (STYPE) 

ROUTINE TO TYPE AN ASCIZ STRING ON THE TTY 

THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS 
AFTER A LINE FEED. 

5,2,4,2 RDCHR (SRDCHR) 

READ A SINGLE ASCII CHARACTER FROM THE TTY 
5,2^4.3 RDLIW ($RDLIN) 

READ AN ASCII STRING FROM THE TT* 

5.2.4.4 WAITREADY ( WATT.ON . READY ) 

WAIT ON THE "TA11 READY" BIT TO SET 

5.2.4.5 WAITXFER ( WAIT. FOR. XFER.RF.Q) 

WAIT ON THE "TA11 TRANSFER REQUEST* BIT TO SET 



5 9 2 8 5 THE FOLLOWING SUBROUTINES ARE CALLED BY A JSR 
5*2*5*1 STYPEC 

ROUTINE TO TYPE A SINGLE ASCII CHARACTER 
5*2*5,2 TYPERR 

THIS ROUTINE WILL TYPE THE ERROR MESSAGES 
5.2,5 9 3 SELDRV 

THIS ROUTINE IS USED TO ASK THE OPERATOR WHAT DRIVE(S) 
ARE TO BE TESTED 

5*2*5*4 ASKADR 

THIS ROUTINE WILL ASK THE OPERATOR FOR THE ADDRESSES OF 
THE «TACS*\ W T4DB« AND VECTOR AND THE PRIORITY TO USE. 

5*2*5*5 ASKQUES 

THIS ROUTINE WILL TYPE DIRECTIONS ON THE TTY AND WAITS 
FOR A RESPONSE OF A "Y% W N" OR "CARRIAGE RETURN, 



5*2*6 THE FOLLOW ROUTINES APE, USED TO MAKE ADJUSTMENTS TO 

THE TU60® BEFORE USING ANY OF THEM LOAD AND START 214. 

5*2®6 e t WFGSUB 

WRITE FILE GAPS FROM "BUT" TO "EOT" 

START AT 220 

THIS ROUTINE CAN BE USED TO ADJUST THE "WRITE GAP MONO" AND 

THE "WRITE DELAY MONO% 

5.2*6*2 WRTSUB 

WRITE CONTINUOUS BLOCKS OF DATA 

START AT 224 

THE PROGRAM WILL HALT THREE(i) TIMES 

AFTER EACH HAbT SET THE SWR AND PRESS CONTINUE 

HALT 1 — SWR<7:0> = NUMBER OF BYTES PER BLOCK 

HALT 2 -"SWR<7l0> = PATTERN DESIRED 

HALT 3 --- SWR<15:fc» s OPERATIONAL SWITCH SETTINGS 

THIS ROUTINE CAN BE USED TO ADJUST THE "GAP TIME MONO" 

** IF USING SOFTWARE SWITCH REGISTER, AFTER 
EACH HALT OPERATOR WILL BE PROMPTED 
FOR THE VALUE WITH "SWR=XXXXXX NEWs" 
5.2.6. J RDSU8 

READ CONTINUOUS BLOCKS OF DATA 

START AT 230 

THIS ROUTINE CAN BE USED TO ADJUST THE "SIGNAL MONO" 

AND THE "THRESHOLD POT" 

5*2*6*4 WGPBLK 

WRITE A FILE GAP AND A BLOCK OF DATA FROM BOT TO ECT 

START AT 234 

THE PROGRAM WILL HALT THREE (3) TIMES 

AFTER EACH HALT SET THE SWR AND PRESS CONTINUE 

HALT I --- SwR<7l0> = NUMBER OF BYTES PER BLOCK 

HALT 2 --- SWR<7:0> = PATTERN DESIRED 

HALT 3 — SWR<15I0> s OPERATIONAL SWITCH SETTINGS 

THIS ROUTINE CAN BE USED TO ADJUST THE "WRITE GAP MONO" 

AND THE M GAP TIME MONO"* 

&& IF USING SOFTWARE SWITCH REGISTER, AFTER 

EACH HALT OPERATOR WILL BE PROMPTED 

FOR THE VALUE WITH "SWRsXXXXXX NEtos" 

5*2*6*5 RGBLK 

READ A BLOCK OF DATA AND A FILE GAP 

START AT 240 

THIS ROUTINE IS USED AFTER "WRITE A BLOCK AND A FILE GAP" ROUTINE 

IT CAN BE USED TO ADJUST THE "SIGNAL MOM", THE THRESHOLD POT" 

AND THE W TAPE BLANK MONO"® 



5,2,6,6 SFFGSB 



SPACE FORWARD FILE GAP FROM f? BOT H TO w EOT w 

START AT 244 

THIS ROUTINE CAN BE USED AFTER M WR1TE FILE GAP** FOR LOW SPEED 

SPACE FOWARD (TAPE BLANK MONO CAN BE ADJUSTED), OR AFTER READ OR 

WRITE A FILE GAP AMD A BLOCK OF DATA FOR HIGH SPEED SPACE FORWARD 

(SIGNAL MONO CAN BE CHECKED), 

5®2®6,7 BSFGSB 

BACK SPACE FILE GAP 

START AT 250 

THIS ROUTINE CAN BE USED TO ADJUST OR CHECK THE "SIGNAL MONO". 

5.2 t 7 THE FOLLOWING SUBROUTINES ARE USED BY THE ADJUSTMENT 
ROUTINES 

5.2,7 a SETBUF 

SETUP BLOCK SIZE AND PATTERN 

5 9 2.7.2 WRTBLK 

WRITES A BLOCK OF DATA 

5.2.7.3 RDBLK 

READS A BLOCK OF DATA 
5*2*7,4 NXTDRV 

CHANGE DRIVE 

6, ERRORS 

THERE ARE A NUN8ER OF ERRORS THAT CAN OCCUR IN THIS 
PROGRAM WHEN AN ERROR IS ENCOUNTERED THE CALL TO 
THE ERROR ROUTINE IS MADE AND IF SW<i3> IS NOT 
SET AN ERROR MESSAGE PERTAINING TO THE ERROR WILL BE 
TYPED. EACH ERROR TYPE OUT &ILL CONTAIN THE FOLLOWING: 

1 # AN ERROR MESSAGE 
2® A DATA HEADER 
J, A DATA STRING 

REFER TO THE LISTING UNDER SERRTB FOR THE DIFFERENT 
ERRORS THAT CAN OCCUR, 



■ ) 



7. RESTRICTIONS 

BEFORE STARTING THE PROGRAM THE OPERATOR MUST INSURE THAT A 
CASSETTE IS LOADED IN THE ORIVE(S) TO BE TESTED AND IS WRITE 
EWABLED, 

8, MISCELLANEOUS 
8*1 EXECUTION TIME 

IS OPERATOR DEPENDENT BUT SHOULD TAKE NO MORE THAN 2 MINUTES® 

8.2 STACK POINTER 

STACK IS INITIALLY SET TO 1100. 

8.3 PASS COUNT 

A PROGRAM PASS THRU COUNT IS KEPT IN W $PASS% 

8*4 ITERATIONS 

THE FIRST PASS OF THE PROGRAM WILL AUTOMATICALLY INHIBIT 
ITERATIONS. ALL SUBSEQUENT PASSES WILL PERFORM FULL* 
(2000 DECIMAL UNLESS OTHERWISE SPECIFIED WITHIN A TEST)^ 
ITERATIONS, 

8,5 SPECIAL REGISTERS 

R3? R4 AND R5 ARE RESERVED THROUGH OUT THE PROGRAM 
FOR ®DRIVE% *TACS* AND «TADB M 

9® PROGRAM DESCRIPTION 

THIS PROGRAM IS A SEQUENCE OF SMALL TESTS THAT CHECK 
THE TAU FOR PROPER OPERATION, 

THE TESTS CAW BE GROUPED INTO THE FOLLOWING GENERAL GROUPS* 

1, TEST "OFFLINE*® WITH TU60 POWER OFF 

2, TEST ^OFFLINE 1 * WITH CASSETTE REMOVED 

3, TEST "WRITE LOCK" CIRCUITRY 
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TITLE TA11 MANUAL INTERVENTION TEST 
^COPYRIGHT CO 1973,1976 
^DIGITAL EQUIPMENT CORP, 
»MAYNAPD, MASS. 01754 

* 

^PROGRAM 8Y JIM LACEY 

«THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 

^PACKAGE (MAINDLC»lt»DZQAC»Cl),MAR 24* 1976 9 

# 

,PEM! 

GENERAL INFORMATION ABOUT THE TAU/TU60 CASSETTE 
ADDRESS MNEMONIC DESCRIPTION 



777500 TACS 
777502 TADB 
2 b*" TAVEC 



CONTROL AND STATUS REGISTER 
DATA BUFFER REGISTER 
INTERRUPT VECTOR 



1ACS REGISTER DESCRIPTION 









INIT 




BIT 


NAME 




STATE 


READ AND/OS 


... 


»*.«,*» 




«,«»»«. 


»««,«.««.«.«.««« 


15 


ERROR 




? 


READ ONLY 


14 


BLOCK CHECK ERROR 







READ ONLY 


13 


CLEAR LEADER 




? 


READ ONLY 


12 


WRITE LOCK 




? 


READ ONLY 


11 


FILE GAP 







READ ONLY 


10 


TIMING ERROR 







READ ONLY 


09 


OFF LINE 




? 


READ ONLY 


08 


UNIT SELECT 







READ/WRITE 


07 


TRANSFER REQUEST 







READ ONLY 


06 


INTERRUPT ENABLE 







READ/WRITE 


05 


READY 




1 


READ ONLY 


04 


ILBS 







READ/WRITE 


03 


FUNCTION BIT 02 







READ/WRITE 


02 


FUNCTION BIT 01 







READ/WRITE 


01 


FUNCTION RIT 00 

0sWRlTE»fr ILE»GAP 

1SWRITE 

2=READ 

3=BACK SPACE FILE 

4sBACK SPACE BLOCK 


GAP 
GAP 





READ/WRITE 




5=SPACE FORWARD FILE GAP 






6=SPACE FORWARD BLOCK 


GAP 






7sREWIND 








00 


GO BIT 







WRITE ONLY 
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67 




68 




69 




70 




71 




7 2 




73 




74 


001 100 


75 




76 




77 




78 




79 


000011 


80 


000012 


81 


000015 


82 


000200 


83 


177776 


84 




85 


177774 


86 


177772 


87 


177570 


88 


177570 


89 




90 




91 


000000 


92 


000001 


93 


000002 


94 


000003 


95 


000004 


96 


000005 


97 


000006 


98 


000007 


99 




100 




101 




102 




103 


000000 


104 


000040 


105 


000100 


106 


000140 


107 


000200 


108 


000240 


109 


000300 


110 


000340 


HI 




112 





8 SBTTL 



OPERATIONAL SWITCH SETTINGS 



,SBTTL 



USE 

HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

INHIBIT ITERATIONS 

BELL ON ERROR 

LOOP ON ERROR 

LOOP ON TEST IN SWR<7|0> 

LOCK ON CURRENT DRIVE (ONLY VALID WITH MANUAL LOOPING) 

BASIC DEFINITIONS 



15 
14 

13 

11 

10 

9 



«*«•»«■###»«■ 



{^INITIAL ADDRESS OF THE STACK POINTER *#* 1100 ##* 
STACKS 1100 

.EQUIV EMT, ERROR {{BASIC DEFINITION OF ERROR CALL 
.EQUIV IOT, SCOPE {{BASIC DEFINITION OF SCOPE CALL 



{^MISCELLANEOUS DEFINITIONS 



HT= 


11 


LF= 


12 


CP = 


15 


CRLF= 


200 


PS= 


177776 


*EQUIV 


P5,PSW 



STKLMT= 177774 

PIRQ= 177772 

DSWRs 177570 

DDISP= 177570 



{CODE FOR HORIZONTAL TAB 
j {CODE FOR LINE FEED 
{{CODE FOR CARRIAGE RETURN 
{{CODE FOR CARRIAGE RETURN-LINE FEED 
j f PROCESSOR STATUS WORD 

{{STACK LIMIT REGISTER 
; { PROGRAM INTERRUPT REQUEST REGISTER 
{{HARDWARE SWITCH REGISTER 
{{HARDWARE DISPLAY REGISTER 



^GENERAL PURPOSE REGISTER DEFINITIONS 



R0= 
Rla 

R2 = 
R3 = 
R4 = 
R5 = 
R6s 
R7s 

.EQUIV 
.EQUIV 



%0 

%1 

%2 

%3 

%4 

%5 

%6 

%7 

R6,SP 

R7,PC 



{{GENERAL REGISTER 

{{GENERAL REGISTER 

{ JGENERAL REGISTER 

{{GENERAL REGISTER 

?f GENERAL REGISTER 

{ JGENERAL REGISTER 

{{GENERAL REGISTER 

{{GENERAL REGISTER 
{{STACK POINTER 

I {PROGRAM COUNTER 



{^PRIORITY LEVEL DEFINITIONS 

PR0= {{PRIORITY LEVEL 

PRla 40 ; {PRIORITY LEVEL I 

PR2= 100 {{PRIORITY LEVEL 2 

PR3= 140 {{PRIORITY LEVEL 3 

PR4s 200 {{PRIORITY LEVEL 4 

PR5= 240 {{PRIORITY LEVEL 5 

PR6= 300 {{PRIORITY LEVEL 6 

PR7s 340 {{PRIORITY LEVEL 7 

{^SWITCH REGISTER" SWITCH DEFINITIONS 



TAli MANUAL INTERVENTION TEST MAlNDEC-1 1 -BITAC-C 
DZTACC.NEW BASIC DEFINITIONS 



MACYil 27(732) 11»JUN»76 13l51 PAGE 3 



113 


100000 


114 


040000 


115 


020000 


116 


010000 


117 


004000 


118 


002000 


119 


001000 


120 


000400 


121 


000200 


122 


000100 


123 


000040 


124 


000020 


125 


000010 


126 


000004 


127 


000002 


128 
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129 




130 
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135 
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137 




138 




139 




140 




141 


100000 
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147 


001000 


148 
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149 
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150 


000100 


151 


000040 


152 


000020 


153 


000010 


154 


000004 


155 


000002 


156 


000001 


157 




158 




159 




160 




161 




162 




163 




164 




165 




166 




167 




168 





SW15 = 


100000 


SW14s 


40000 


SW13 = 


20000 


SW12 = 


10000 


SWH = 


4000 


SW10s 


2000 


SW09 = 


1000 


SW08* 


400 


SW07 = 


200 


SW06 = 


100 


SW05 = 


40 


5W04= 


20 


SW03 = 


10 


SW02 = 


4 


SW01s 


2 


SW00= 


1 


.EQUIV 


SW09,SW9 


.EQUIV 


SW08,SW8 


.EQUIV 


SW07,SW7 


.EQUIV 


SW06,SW6 


.EQUIV 


SW05, SW5 


.EQUIV 


SW04, SW4 


.EQUIV 


SW03# SW3 


.EQUIV 


SW02rSW2 


.EQUIV 


SW01,SW1 


.EQUIV 


SW00,SW0 


;*DATA 


BIT DEFINIT 


BIT15= 


100000 


BIT14= 


40000 


BIT13= 


20000 


BIT12s 


10000 


BIT11= 


4000 


BIT10= 


2000 


BIT09= 


1000 


BIT08= 


400 


BTT07= 


200 


BIT06s 


100 


BIT05= 


40 


BIT04= 


20 


BIT03= 


10 


BIT02= 


4 


BIT01= 


2 


BIT00= 


1 


.EQUIV 


BIT09,BIT9 


.EQUIV 


BIT08,BIT8 


.fcQUIV 


BIT07,BIT7 


.EQUIV 


BIT06f BIT6 


.EQUIV 


BIT05,BIT5 


.EQUIV 


BIT04,BIT4 


.EQUIV 


BIT03,BIT3 


.EQUIV 


BIT02,BIT2 


.EQUIV 


BIT01,BIT1 


.EQUIV 


BIT00,BIT0 



;*BASIC "CPU" TRAP VECTOR ADDRESSES 



TA11 MANUAL INTERVENTION TEST MAINDEC-U -DZTAC-C 
DZTACC.NEW BASIC DEFINITIONS 
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169 


000004 


170 


000010 


171 


000014 


172 


000014 


173 


000014 


174 


000020 


175 


000024 


176 


000030 


177 


000034 


178 


000060 


179 


000064 


180 


000240 



ERRVECs 4 
RESVECs 10 
TBITVEC=14 
TPTVECs 14 
BPTVEC= 14 
IOTVEC= 20 
PWRVEC= 24 
EMTVECs 30 
TRAPVECs34 
TKVEC= 60 
TPVEC= 64 
PIRQVEC=240 



JTIME OUT AND OTHER ERRORS 

.•RESERVED AND ILLEGAL INSTRUCTIONS 

j"T" BIT 

;TRACE TRAP 

fBREAKPOINT TRAP (BPT) 

J INPUT/OUTPUT TRAP (IOT) ##SCOPE*« 

JPOWER FAIL 

jEMULATOR TRAP (EMT) *»ERROR## 

("TRAP" TRAP 

,'TTY KEYBOARD VECTOR 

JTTY PRINTER VECTOR 

^PROGRAM INTERRUPT REQUEST VECTOR 



TAli MANUAL INTERVENTION TEST MAINDEC-11 
DZTACC.NEW TA11 DEFINITIONS 
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182 


000000 


183 


000002 


184 


000004 


185 


000006 


1B6 


000010 


187 


000012 


188 


000014 


189 


000016 


190 




191 




192 




193 


100000 


194 


040000 


195 


020000 


196 


010000 


197 


004002 


198 


002000 


199 


001000 


200 


000400 


201 


000200 


202 


000100 


203 


000040 


204 


000020 


205 


000010 


206 


000004 


207 


000002 


209 


000001 


209 


000016 


210 




211 




212 




213 




214 




215 


000003 


216 


000004 


217 


000005 


218 




219 




220 





;TAU 


FUNCTI 


WFG= 





WPITEs 


2 


PEADs 


4 


BSFGs 


6 


BSBG= 


10 


SFFG= 


12 


SFBGs 


14 


REWIND 


= 16 


• • #■»*«■«••»#### 



ONS 

;WRITE FILE GAP FUNCTION 
jiWRITE FUNCTION 
;READ FUNCTION 

jBACK SPACE FILE GAP FUNCTION 
;BACK SPACE BLOCK GAP FUNCTION 
;SPACE FWD FILE GAP FUNCTION 
;SPACE FWD BLOCK GAP FUNCTION 
;REWIND FUNCTION 

;TA11 BIT ASSIGNMENT 

ERRORS BIT15 

CRCERRs BIT14 

LEADERS BIT13 

WRTLOCK=BIT12 

FGAPs BIT11 

TIMERRs BIT10 

OFFLINEsBIT09 

UNITs BIT08 

TP.REOs BIT07 

INT.ENs BIT06 

READY* BIT05 

ILBSs BIT04 

FUNC2s BIT03 

FUNCls BIT02 

FUNC0S BIT01 

GOs BIT00 

FUNCTIONS; FUNC2+FUNC 1+FUNC0 

;////////////////////////////////////////////////////////////////////// 

jSPECIAL REGISTERS 
DPIVEs %3 
TACSs %4 
TADBs %5 



?R3 CONTAINS THE DRIVE UNDER TEST 

;R4 IS USED AS A POINTER TO THE TAGS REGISTER 

;R5 IS USED AS A POINTER TO THE TADB REGISTER. 



J////////////////////////////////////////////////////////////////////// 



TAH MANUAL INTERVENTION TEST 
DZTACC.NEW TRAP CATCHER 



MAINDEC-11»DZTAC»C 
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SEQ 0019 



221 








222 








223 




000000 




224 








225 








226 








227 




000174 




228 


000174 


000000 




229 


000176 


000000 




230 








231 


000200 


000137 


001326 


232 


000204 


000137 


001360 


233 


000210 


000137 


001366 


234 


000214 


000137 


001730 


235 


000220 


000137 


007604 


236 


000224 


000137 


007670 


237 


000230 


000137 


007756 


238 


000234 


000137 


010036 


239 


000240 


000137 


010140 


240 


000244 


000137 


010234 


241 


000250 


000137 


010320 



.SBTTL TRAP CATCHER 



;*ALL UNUSED LOCATIONS FROM 
;*SEQUENCE TO CATCH ILLEGAL 
;#LOCATION CONTAINS TO C 

,si74 
DISPREGs .WORD 
SWREG; 9 WORD 
.SBTTL STARTING ADDRESS(ES) 



JMp 


e#BEGINl 


JMP 


P#BEGIN2 


JMp 


9SBEGIN3 


JMP 


MBEGINX 


JMP 


P8WFGSUB 


JMP 


PSWRTSUB 


JMP 


£#RDSUB 


JMP 


$#WGPBLK 


JMP 


P#RGPBLK 


JMP 


OSSFFGSB 


JMP 


g#BSFGSB 



4 - 776 CONTAIN A B . +2, HALT" 

TRAPS AND INTERRUPTS 

ATCH IMPROPERLY LOADED VECTORS 

,'SOFTWARE DISPLAY REGISTER 
.•SOFTWARE SWITCH REGISTER 

;JUMp TO STARTING ADDRESS OF PROGRAM 

jSELECT DRIVE(S) BEFORE STARTING TEST 

JSELECT DRIVE(S) AND ADDRESSES BEFORE TESTING 

;SETUP FOR MANUAL LOOPING 

;WRITE FILE GAP FROM BOT TO EOT 

jWRITE CONTINUOUS BLOCKS OF DATA 

;READ CONTINUOUS BLOCKS OF DATA 

jWRITE FILE GAP AND A BLOCK OF DATA 

?READ BLOCK OF DATA AND INTO A FILE GAP 

;SPACE FWD FILE GAP FROM BOT TO EOT 

;BACK SPACE FILE GAPS 



TAH MANUAL INTERVENTION TEST 
D£TACC 9 NEW TOGGLE 

242 

24 J 

244 
245 

246 
247 
248 
249 
250 
251 
252 

25 3 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 

289 000500 

290 

291 000500 0177H 000434 

292 000504 000775 
293 

294 



MAINDEOil^DZTAOC 
IN ROUTINES 
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I//////////////////////,'///////////////'/////////////////////////////// 
?THE FOLLOWING ROUTINES CAN BE TOGGLED IN. 



THE FOLLOWING ROUTINES (LQOPi, L00P2, & LOOP35 CAN BE TOGGLED 
IN WHEN IT IS IMPOSSIBLE TO LOAD THE DIAGNOSTICS 

NOTE? BEFORE USING THESE ROUTINES INSURE THAT R3,R4,£ R5 

ARE SETUP PROPERLY. 
#«■ NOTE? IF USING SOFTWARE SWITCH REGISTER THE 

LOCATION SWR (sii40) MUST CONTAIN 

ADDRESS H SWREG" (=176) e 

#** PLACE VALUE INTO 176 ##* 

## REGISTERS 3, 4, AND 5 *# 

## MUST BE SETUP VIA MOVE INSTRUCTIONS *# 

R3s IF USING DRIVE A 

400 IF USING DRIVE B 

R4js TA11 STATUS REG ADDRESS CTACS 177500) 

RSs TA11 DATA BUFFER ADDRESS (TADB 177502) 

LOOPI WILL LOAD THE SWITCH REGISTER INTO THE TAGS. 

LOOP2 WILL WRITE THE CONTENTS OF THE SWITCH REGISTER 
ALL THE WAY TO END»0F»TAPE( EOT) . 

LOOPI WILL READ TO EOT. DATA WILL GO TO R0 B 

NOTES LOOP2 AND LOOP3 WILL REWIND WHEN EOT IS REACHED AND 
THEN START OVER. 
1 

• • # #«■####«•# ##«##«#.&«###&#&######«'### ###&#####■»##■&&•&#&#«■#####*•##■& 
jLOftD SWITCH REGISTER INTO THE TAGS 



MOV @SWR,PTACS 
BR LOOPI 



;LOAD TACS 
jLOOP 



TA11 MANUAL INTERVENTION TEST MAINDEC-i 1-DZTAC-C MACYil 27(732) il»JUN»76 1 3 g 51 PAGE 8 

DZTACC a NEW WRITE SWITCH REGISTER ON TAPE FROM BOT TO EOT 



295 
296 








297 








298 








299 




000600 




300 








301 


000600 


000005 




302 


000602 


010314 




303 


000604 


112714 


000017 


304 


000610 


032714 


000040 


305 


000614 


001775 




306 


000616 


112714 


000003 


307 


000622 


105714 




308 


000624 


100003 




309 


000626 


017715 


000306 


310 


000632 


000773 




311 


000634 


032714 


000040 


312 


000640 


001357 




313 


000642 


000767 




314 








315 








316 








317 








318 








319 








320 








321 




000700 




322 








323 


000700 


000005 




324 


000702 


010314 




325 


000704 


112714 


000017 


326 


000710 


032714 


000040 


327 


000714 


001775 




328 


000716 


112714 


000005 


329 


000722 


105714 




330 


000724 


100002 




331 


000726 


011500 




332 


000730 


000774 




333 


000732 


032714 


000040 


334 


000736 


001360 




3 35 


000740 


000770 





fWRITE SWITCH REGISTER ON TAPE FROM BOT TO EOT 
9 s600 



L00P2S RESET 



MOV 


DRIVE, 0TACS 


MOVB 


#REWINDiG0,3TACS 


BIT 


#READY,0TACS 


BEQ 


IB 


MOVB 


#WRITEJG0, STAGS 


TSTB 


8TACS 


BPL 


3S 


MOV 


PSWR,8TADB 


BR 


2$ 


BIT 


8READY,!3TACS 


BNE 


L00P2 


BR 


2S 



jCLEAR ALL FLAGS 

jSELECT DRIVE 

;G0 TO BOT 

jWAIT TILL READY COMES UP 

;START A WRITE 

jCHECK FOR TRANSFER REQUEST 

;BR IF NOT SET 

;SEND DATA TO TA11 

|LOOP 

;DID READY SET? 

;START OVER IF YES 

;LOOP 



• ####«•#####*#####■&###»###«■#«#####&#&&■&####«•# 



###&•&##« «•###«■&■&#■&«■ 



| READ FROM BOT TO EOT 



# ##•&«■ #«■«•# ##•&### 



##«■«■&#■»#■»##•»«• 



RESET 




jCLEAR ALL FLAGS 


MOV 


DRIVE,PTACS 


jSELECT DRIVE 


MOVB 


#REWINDlGO,BTACS 


fSTART A REWIND 


BIT 


tfREADYrgTACS 


jWAIT ON REWIND TO FINISH 


BEQ 


1$ 




MOVB 


§ READS GO, OTACS 


; START A READ 


TSTB 


&TACS 


jCHECK TRANSFER REQ 


BPL 


3$ 


;BR IF NOT SET 


MOV 


PTADB,R0 


fPICKUP THE DATA 


BR 


2S 


?LOOP 


BIT 


8READY,PTACS 


;CHECK READY 


BNE 


L00P3 


jSTART OVER 


BR 


2$ 


?L00p 



TA11 MANUAL INTERVENTION TEST 
DZTACC«NEW COMMON TAGS 



MAINDEC-H-DZTAOC 
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336 
337 
338 
339 






340 






341 






342 




001100 


343 


001100 




344 


001100 


000000 


345 


001102 


000 


346 


001103 


000 


347 


001104 


000000 


348 


001106 


000000 


349 


001110 


000000 


350 


001112 


000000 


351 


001114 


000 


352 


001115 


001 


353 


001116 


000000 


354 


001120 


000000 


355 


001122 


000000 


356 


001124 


000000 


357 


001126 


000000 


358 


001130 


000000 


359 


001132 


000000 


360 


00U34 


000 


361 


001135 


000 


362 


001136 


000000 


363 


001140 


177570 


364 


001142 


177570 


365 


001144 


177560 


366 


001146 


177562 


367 


001150 


177564 


360 


001152 


177566 


369 


001154 


000 


370 


001155 


002 


371 


001156 


012 


372 


00U57 


000 


373 


001 160 


000000 


374 






375 


001162 


000000 


376 


001164 


000000 


377 


001166 


000000 


378 


001170 


000000 


379 


001172 


177607 


380 


001176 


077 


381 


001 177 


015 


382 


001200 


000012 


383 






384 


001202 


000000 


385 


001204 


000000 


386 






387 


001206 


177500 


388 


001210 


177501 


389 


001212 


177502 


390 


001214 


177503 


391 


001216 


000260 



e SBTTL COMMON TAGS 



j*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
j#USED IN THE PROGRAM. 



jj START OF COMMON TAGS 

fjCQNTAINS PASS COUNT 

JjCONTAINS THE TEST NUMBER 

JjCONTAINS ERROR FLAG 

jjCONTAINS SUBTEST ITERATION COUNT 

j {CONTAINS SCOPE LOOP ADDRESS 

ff CONTAINS SCOPE RETURN FOR ERRORS 

jjCONTAINS TOTAL ERRORS DETECTED 

JjCONTAINS ITEM CONTROL BYTE 

JjCONTAINS MAX, ERRORS PER TEST 

jjCONTAINS PC OF LAST ERROR INSTRUCTION 

JjCONTAINS ADDRESS OF 'GOOD* DATA 

JjCONTAINS ADDRESS OF 'BAD* DATA 

JJCONTAINS 'GOOD' DATA 

JjCONTAINS 'BAD* DATA 

j jRESERVED»»NOT TO BE USED 



JJAUTOMATIC MODE INDICATOR 
j j INTERRUPT MODE INDICATOR 

j j ADDRESS OF SWITCH REGISTER 
JJADDRESS OF DISPLAY REGISTER 
jjTTY KBD STATUS 
JJTTY KBD BUFFER 

TTY PRINTER STATUS REG, ADDRESS 

TTY PRINTER BUFFER REG, ADDRESS 

CONTAINS NULL CHARACTER FOR FILLS 

CONTAINS I OF FILLER CHARACTERS REQUIRED 

INSERT FILL CHARS, AFTER A "LINE FEED" 

"TERMINAL AVAILABLE" FLAG (BIT«07>=0sYES) 

CONTAINS THE ADDRESS FROM 

WHICH (SREG0) WAS OBTAINED 

CONTAINS C($REGAD)+0) 

CONTAINS (($REGAD)+2) 

MAX, NUMBER OF ITERATIONS 

ESCAPE ON ERROR ADDRESS 

CODE FOR BELL 

QUESTION MARK 

CARRIAGE RETURN 

LINE FEED 

jSTORAGE FOR THE PC 
jSTORAGE FOR THE PS 



SCMTAGj 






spass: 


.WORD 





STSTNMi 


.BYTE 





SERFLGf 


.BYTE 





SICNT! 


.WORD 





SLPADRj 


.WORD 





SLPERRl 


.WORD 





SERTTLs 


.WORD 





SITEMB! 


.BYTE 





SERMAXs 


.BYTE 


1 


SERRPCf 


.WORD 





$GDADRs 


.WORD 





SBDADRs 


.WORD 





SGDDATS 


.WORD 





SBDDAT; 


»WORD 







.WORD 







.WORD 





SAUTOBl 


*BYTE 





SINTAG! 


.BYTE 







.WORD 





SWRs 


.WORD 


DSWR 


DISPLAY 


.WORD 


DDISP 


STKSS 


177560 




STKBS 


177562 




STPS! 


177564 




STPB! 


177566 




SNULLS 


.BYTE 





SFILLSl 


.BYTE 


2 


SFILLCi 


.BYTE 


12 


STPFLGs 


.BYTE 





SREGADs 


.WORD 





8REG0S 


.WORD 





SREGlS 


.WORD 





STIMESS 







SESCAPE 


!0 




SBELL! 


»ASCIZ 


<207»<377><377» 


SQUESS 


.ASCII 


/?/ 


SCRLF1 


.ASCII 


<15> 


SLFs 


.ASCIZ 


<12> 


• !####«#■&###■&#■»&####«■«#■&'»#### 


SAVPCS 


.WORD 





SAVPSS 


e WORD 





TACSLS 


177500 




TACSHs 


177501 




TADBLS 


177502 




TADBHS 


177503 




TAVECS 


260,262 





jLOW BYTE ADDRESS OF TAGS 
jHIGH BYTE ADDRESS OF TAGS 
jLOW BYTE ADDRESS OF TADB 
jHIGH BYTE ADDRESS OF TADB 
;TA11 VECTOR ADDRESS 



TA11 MANUAL INTERVENTION TEST 

DZTACC.NEW COMMON TAGS 

392 001222 000300 

393 001224 000000 000000 

394 001230 001224 

395 001232 000000 

396 001234 000000 



MAINDEC^H^DZTAC-C 



TAPRIOS 300 

DRVKEYs 0,0 

DRVPNT8 DRVKEY 

ASKKEY! 

CURDRVl 
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5TA11 BR LEVEL 6 
jDRIVE SELECT KEYS 



jCUPRENT DRIVE BEING TESTED 



TA11 MANUAL INTERVENTION TEST MAINDEC-H -DZTAC-C 
DZTACC.NEW ERROR POINTER TABLE 
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398 






399 






400 






401 






402 






403 






404 






405 






406 






407 






408 






409 






410 






411 


001236 




412 






413 






414 






415 






416 


001236 


013061 


417 


001240 


013227 


418 


001242 


013340 


419 


001244 


000000 


420 






421 






422 


001246 


013100 


423 


001250 


013244 


424 


001252 


013346 


425 


001254 


000000 


426 






427 






428 


001256 


013126 


429 


001260 


013244 


430 


001262 


013346 


431 


001264 


0140000 


432 






433 






434 


001266 


013167 


435 


001270 


013244 


436 


001272 


013346 


437 


001274 


000000 


438 






439 






440 


001276 


013212 


441 


001300 


013301 


442 


001302 


013356 


443 


001304 


000000 


444 






445 







9 SBTTL ERROR POINTER TABLE 

j*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

j#LOCATION SlTEMB, THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT, 

;#NOTEls IF SITEMB IS THE ONLY PERTINENT DATA IS CSERRPC), 

j#NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS! 



EM 
DH 
DT 
DF 



jjPOINTS TO THE ERROR MESSAGE 

JjPOINTS TO THE DATA HEADER 

JjPOINTS TO THE DATA 

JJPOINTS TO THE DATA FORMAT 



SERRTB; 

jNOTE: ALL NUMBERS ARE TYPED AS 6-DIGIT OCTAL NUMBERS 

jlTEM 



1 

EMI 
DH1 
DTI 



2 

EM2 
DH2 
DT2 



3 

EM3 
DH2 
DT2 



4 

EM4 
DH2 
DT2 



5 

EM5 

DH5 

DT5 





J STATUS PROBLEM 
J PC TACS 
jSERRPC SREG0 



jREADY FAILED TO SET 

;PC TACS WAIT ADDRESS 

jSERRPC SREG0 SAVPC 



;TRANSFER REQUEST FAILED TO SET 
jPC TACS WAIT ADDRESS 
jSERRPC SREG0 SAVPC 



jTHE WRONG FLAG SET 

jPC TACS WAIT ADDRESS 

jSERRPC SREG0 SAVPC 



jDATA PROBLEM 
j PC TACS 
jSERRPC SREG0 



EXPECT 
SGDDAT 



RCV'D 
SBDDAT 



TA11 MANUAL INTERVENTION TEST MAINDEC-1 1 -DETAC-C 
DETACC.NEW ERROR POINTER TABLE 



446 


001306 




447 






448 


001306 


013402 


449 


001310 


013454 


450 


001312 


013370 


451 


001314 


000000 


452 






453 


001316 


013431 


454 


001320 


013471 


455 


001322 


013376 


456 


001324 


000000 


457 







EM201 
DH201 
DT201 



EM202 
DH202 
DT202 
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jITEMS 201*202 

jTAll FAILED TO RESPOND 

jPC TACS 

jSERRPC TACS 

jBOTH NUMBERS ARE TYPED AS OCTAL NUMBERS 

jNO DRIVES AVAILABLE 

J PC 

jSERRPC 



TA11 MANUAL INTERVENTION TEST MAINDEC-i 1 -DZTAC-C 
DZTACC.NEW START OF TEST 
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458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 



001326 
001330 
001336 
001344 
001346 
001354 
001356 
001360 
001364 
001366 
001372 
001374 
001400 



001404 
001406 
001412 
001414 

001420 
001426 
001434 
001442 
001450 
001456 
001464 
001472 
001500 
001506 
001512 
001516 
001524 
001532 



001540 
001544 
001552 
001560 
001566 
001574 



005005 
012737 
122737 
001011 
022737 
001011 
000403 
012705 
000405 
012705 
000402 
012705 



012706 
005026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
016767 
005067 
005067 
112767 
012767 
012767 



013746 
012737 
012767 
012767 
022777 
001012 



041101 001224 



000260 001216 

000001 
000002 



001100 

006046 
000340 
006320 
000340 
012304 
000340 
012370 
000340 
004270 
177454 
177452 
000001 
001524 
001532 



001600 
177570 
177570 
177777 



000020 
000022 
000030 
000032 
000034 
000036 
000024 
000026 
004260 



177371 
177354 
177350 



177360 
177354 
177344 



J////////////////////////////////////////////////////////////////////// 
I ////////////////////////////////////////////////////////////////////// 
• | #####»####»###»»##################&####•####»##### »»#«•#»«■•»#■»■##«•»• 

yBEGINl IS FOR NORMAL START 

;BEGIN2 IS FOR DRIVE SELECTION 

;BEGIN3 IS FOR DRIVE & ADDRESS SELECTION 

;BEGIN4 IS FOR MANUAL OPERATION 



BEGIN2! 

BEGIN3! 

BEGIN4! 
BGNCMN; 
.SBTTL 
jlCLEAR 



', jSIZE 

jjEQUAL 



CLP 

MOV 

CMPB 

BNE 

CMP 

BNE 

BR 

MOV 

BR 

MOV 

BR 

MOV 

INIT 

THE 

MOV 

CLR 

CMP 

BNE 

MOV 

ALIZF. 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
MOVB 
MOV 
MOV 

FOR A 
TO A 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 



R5 

# n AB,g#DRVKEY 

#5,@#4l 

BGNCMN 

#260,{?#TAVEC 

BGNCMN 

BEGIN3 

#1»P5 

BGNCMN 

82, P5 

BGNCMN 

#3,R5 



jNORMAL START 

jCASSETTE DDP? 

;GO BEGIN COMMON CODE IF NO 

^STANDARD VECTOR? 

yGO BEGIN COMMON CODE IF NO 

?GET DRIVES AND ADDRESSES 

;ASK FOR DRIVES FLAG 

;BEGIN COMMON CODE 

;ASK FOR DRIVES AND ADDRESSES 



IJLOOP BACK IF NO 

jjSETUP THE STACK POINTER 



IALIZE THE COMMON TAGS 
COMMON TAGS (SCMTAG) AREA 

#$CMTAG,R6 jjFIRST LOCATION TO BE CLEARED 

(R6) + ;;CLEAR MEMORY LOCATION 

#SWR,R6 jfDONE? 

.-6 

8STACK,SP 
A FEW VECTORS 

8$SCOPE,3#IOTVEC jflOT VECTOR FOR SCOPE ROUTINE 

#340,g#IOTVEC+2 jjLEVEL 7 

8SERROR,g#EMTVEC ; }EMT VECTOR FOR ERROR ROUTINE 

8340,0#EMTVEC+2 ?;LEVEL 7 

8$TRAP,(a#TRAPVEC JjTRAP VECTOR FOR TRAP CALLS 

8340,P#TRAPVEC+2;LEVEL 7 

#$PWRDN,g#PWRVEC fjPOWER FAILURE VECTOR 

#340,P#PWRVEC+2 yjLEVEL 7 

$ENDCT,$EOPCT jjSETUP END-OF-PROGRAM COUNTER 

ST1MES ', INITIALIZE NUMBER OF ITERATIONS 

SESCAPE ;;CLEAR THE ESCAPE ON ERROR ADDRESS 

#1,$ERMAX j;ALLOW ONE ERROR PER TEST 

S*.,$LPADR j;INITIALIZE THE LOOP ADDRESS FOR SCOPE 

#,,$LPERR «;SETUP THE ERROR LOOP ADDRESS 
HARDWARE SWITCH REGISTER, IF NOT FOUND OR IT IS 
"-1", SETUP FOR A SOFTWARE SWITCH REGISTER, 



01576 000403 



g#ERRVEC,-(SP) 
S64$,0#ERRVEC 
#DSWR,SWR 
#DDISP, DISPLAY 

66$ 

65$ 



;SAVE ERROR VECTOR 
;SET UP ERROR VECTOR 

JSETUP FOP A HARDWARE SWICH REGISTER 
jAND A HARDWARE DISPLAY REGISTER 
;TRY TO REFERENCE HARDWARE SWR 
jBRANCH IF NO TIMEOUT TRAP OCCURRED 
;AND THE HARDWARE SWR IS NOT a -1 
fBRANCH IF NO TIMEOUT 



TA11 MANUAL INTERVENTION TEST MAINDFC-1 1-DZTAC-C 
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514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 



1600 
1604 
1606 
1614 
1622 



001626 
001632 
001634 
001642 
001644 



1312716 001606 



001650 
001654 
001656 
001664 
001666 
001670 
001672 
001700 
001700 000413 

001730 



012767 000176 
012767 000174 
012637 000004 



005227 177777 

001036 

022737 006014 

001432 

104401 001702 

005737 000042 



01730 
01732 
01734 
01736 
01742 
01744 
01746 





64$! 


MOV 
RTI 


177324 


65$; 


MOV 


177320 




MOV 




66$! 


MOV 



026727 177256 

001005 

104405 

000403 

112767 000001 



010504 
005305 
002406 
004737 
005305 
002402 
004737 



#65$, (SP) ;jSET UP FOR TRAP RETURN 

#SWREG,SWR ; f POINT TO SOFTWARE SWR 

8DISPREG, DISPLAY 

(SP)+,0#ERRVEC ; j RESTORE ERROR VECTOR 

„SBTTL TYPE PROGRAM NAME 

? j TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
INC #-1 ?;FIRST TIME? 

BNE HERE ?j BRANCH IF NO 

CMP #$ENDAD„?J#42 fjACT-11? 
BEQ HERE yyBRANCH IF YES 

TYPE ,MSGID ;;TYPE ASCIZ STRING 

.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 

yjARE WE RUNNING UNDER XXDP/ACT? 

? {BRANCH IF YES 

;;SOFTWARE SWITCH REG SELECTED? 

jjBRANCH IF NO 

;;GET SOFT-SWR SETTINGS 

JJSET AUTO»MODE INDICATOR 

yjGET OVER THE ASCIZ 





TST 


3#42 




BNE 


67$ 




CMP 


SWR,StSWREG 




BNE 


68$ 




GTSWR 






BR 


68$ 


67$: 


MOVB 


#l#SAUTOB 


68S! 







BR 



HERE 



.ASCIZ <CRLF>/MAINDEC«11»DZTAC-C/<CRLF> 



fMSGIDs 
HERE! 

THE CONTENTS OF R5 DETERMINES WHAT WILL BE DONE 

R5=3 MANUAL OPERATIONS 

R5*2 ASK FOR DRIVE(S) AND ADDRESSES (TACS AND VECTOR) 

R5sl ASK FOR DRIVE(S) 

R5=0 DON'T ASK FOR ANYTHING 

• «■#«■■»*■»»# «•»# •&&«•###& #«■### •&«•■&#«•# &##■»# ##############«•#«■###■&#■»#•»•###•& 



BEGINX! MOV 
DEC 
BLT 
JSR 
DEC 
BLT 
JSP 



R5,R4 

R5 

CHKADR 

PC,?®ASKDRV 

R5 

CHKADR 

PC,@#ASKADR 



COPY R5 

ASK FOR DRIVES? 

BR IF NO 

GO GET DRIVES TO BE TESTED 

ASK FOR ADDRESSES? 

BR IF NO 

GO GET TA11 ADDRESSES 



• ;##«■'»«##«•«###»#«■#*«■###*«•»«»«»###««■*«•*«■«■*#*##•»#•»«•«###*«■«•#»#*##■»•»«' 

fCHECK THAT "TAGS" WILL RESPOND TO ADDRESSING 

;I, TIMEOUT OCCURRED 

? A. TYPE ERROR MESSAGE 

? B. EXAMINE R4 

', 1, R4>0 GOTO BEGINX 

? 2, P4s0 EXAMINE (42) 

; A, (42)s0 GOTO BEGINX 

; B 8 (42)>0 GOTO SENDAD 
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S70 








»II. 


TIMEOUT 


DIDN'T OCCUR 


571 








1 


A 9 CONTINUE 


572 








? 






573 

574 


001752 


012737 


00S770 000004 


CHKADRl 


MOV 


#1S#8«ERRVEC 


575 


001760 


005000 






CLR 


R0 


576 


001762 


005777 


177220 




TST 


PTACSL 


577 


001766 


000402 






BR 


28 


578 


001770 


005200 




l$i 


INC 


R0 


579 


001772 


022626 






CMP 


(SP3*,(SPH 


580 


001774 


012737 


000006 000004 


2SS 


MOV 


#ERRVEC+2,G»ERRVEC 


581 


002002 


005700 






TST 


R0 


582 


002004 


001412 






BEQ 


3$ 


583 


002006 


104201 






ERROR 


201 


584 


002010 


012705 


000002 




MOV 


#2,R5 


585 


002014 


005704 






TST 


R4 


586 


002016 


001344 






BNE 


BEGINX 


587 


002020 


013700 


000042 




MOV 


§#42, P0 


588 


002024 


001741 






BEQ 


BEGINX 


589 


002026 


000137 


006014 




JMP 


P8SENDAD 


590 


002032 






3SI 







fIN CASE OF TIMEOUTS 

JUSE AS A SWITCH 

fSEE IF TA11 RESPONDS 

fBR IF NO TIMEOUT 

fCOME HERE ON TIMEOUT 

fCLEANUP THE STACK 

fRESTORE TIMEOUT VECTOR 

fDID A TIMEOUT OCCUR? 

fBR IF NO 

fTAli FAILED TO RESPOND 

fDRlVES & ADDRESSES 

jOPERATOR INPUTS? 

fBR IF YES 

fGET MONITOR RETURN ADDRESS 

fBR IF NO MONITOR 

?GO TO END 



' 



TA11 MANUAL INTERVENTION TEST MAINDEC-1 1 «DZTAOC 
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591 








592 








593 








594 








595 








596 








597 








598 








599 








600 








601 








602 








603 








604 








605 








606 








607 








608 








609 








610 








611 








612 


002032 


012700 


001224 


613 


002036 


004737 


010654 


614 


002042 


000410 




615 


002044 


116010 


000001 


616 


002050 


001412 




617 


002052 


004737 


010654 


618 


002056 


000407 




619 


002060 


005010 




620 


002062 


000405 




621 


002064 


005200 




622 


002066 


004737 


010654 


623 


002072 


000401 




624 


002074 


105010 




625 


002076 


012700 


001224 


626 


002102 


010037 


001230 


627 


002106 


121060 


000001 


628 


002112 


001002 




629 


002114 


105060 


000001 


630 


002120 


005710 




631 


002122 


001401 




632 


002124 


000412 




633 


002126 


104202 




634 


002130 


012705 


000002 


63S 


002134 


005704 




636 


002136 


001274 




637 


002140 


013700 


000042 


638 


002144 


001671 




639 


002146 


000137 


006014 


610 


0021S2 


020427 


000003 


641 


002156 


001002 




642 


002160 


016704 


175613 


643 


002164 


010437 


001232 


644 


002170 


000405 




345 


002172 


104401 


001702 


646 


002176 


012737 


001224 



jMAKE SURE THE DRIVES IN THE DRIVE TABLE CAN BE TESTED 

1 

fl 8 DESIRED DRIVES CAN NOT BE TESTED 

f A 9 TYPE ERROR MESSAGE 

B s EXAMINE R4 

• l, R4>0 GOTO BEGINX 

j 2. R4s0 EXAMINE (42) 

■ A, (42)=0 GOTO BEGINX 

I B, (42)>0 GOTO SENDAD 



) 



;II. BOTH DRIVES IN THE TABLE BUT ONLY ONE OF THEM CAN BE TESTED 
• A* CLEAR BAD DRIVE FROM THE DRIVE TABLE 
1 B 8 CONTINUE IN PROGRAM 

f 

fill. DESIRED DRIVE(S) CAN BE TESTED 

f A. CONTINUE IN PROGRAM 

'. 

;PICKUP ADDRESS OF ASCII DRIVE KEY 

fGO EXAMINE FIRST DRIVE 

;OK TO TEST---GO CHECK NEXT 

fREPLACE 1ST WITH 2ND 

fBR IF NO 2ND DRIVE SELECTED 

•GO EXAMINE DRIVE 

fOK TO TEST 

fCLEAR DRIVE CODES 

•POINT TO 2ND 

fGO EXAMINE DpIVE 

fOK TO TEST 

fCLEAR 2ND 

fRESET ADDRESS POINTERS 

flST s 2ND? 
fBR IF NO 
|YES«-«CLEAR 2ND 
jANY DRIVES? 
fBR IF NO 

fNO DRIVES AVAILABLE 

fDRIVES & ADDRESS 

fOPERATOR INPUTS? 

fBR IF YES 

fGET MONITOR RETURN ADDRESS 

fNO MONITOR 

j GO TO END 



jPOWER FAIL RESTART 



CHKDRV; 


MOV 


#DRVKEY,R0 




JSR 


PC,B#EXAM 




BR 


IS 




MOVB 


1(R0)#(R0) 




BEQ 


2S 




JSR 


PC,G«EXAM 




BR 


2S 




CLR 


(R0) 




BR 


2$ 


18: 


INC 


R0 




JSR 


PC,@8EXAM 




BR 


2S 




CLPB 


(R03 


2s: 


MOV 


#DRVKEY,R0 




MOV 


R0,$#DRVPNT 




CMPB 


(R0),1(R0) 




BNE 


3$ 




CLRB 


KR0) 


38s 


TST 


(R03 




BEQ 


S» 




BR 


MANUAL 


Si? 


ERROR 


202 




MOV 


«2tR5 




TST 


R4 




BNE 


BEGINX 




MOV 


iS42,R0 




BEG 


BEGINX 




JMP 


§§!$ENDAD 


MANUAL! 


CMP R4i 


,93 




BNE 


OK 




MOV 


-1#R4 


OK? 


MOV 


R4,®#ASKKEV 




BR 


START 


PWRSTi 


TYPE 


# MSGID 




MOV 


#DRVKEY,®ffDRVPNT 
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§E@ iili 



£4? 


001304 


013777 


8012510 


177004 START! 


MOV 


MTAYEC*3»mVEC 


648 


002212 


00§077 


177001 




CLR 


•TAYEC+3 


649 


002116 


012737 


000340 


17777S 


MOV 


#340, WS 


§50 


001214 


013704 


001106 




MOV 


MTACSLrTACS 


6S1 


^02230 


013705 


001212 




MOV 


MTADBLrTADB 


6S2 


002234 


00S737 


001100 




TST 


MfPASS 


653 


002240 


001003 






BNE 


11 


654 


002242 


012737 


077777 


006732 


MOV 


8 W CBIT1S,MMAXCNT 


655 


002250 


005037 


001102 


ill 


CLR 


tS«TSTNM 


656 


002254 


005003 






CLR 


DRIVE 


657 


002256 


013701 


001230 




MOV 


@#DRVPNT,R1 


658 


002262 


121127 


000101 




CMPB 


(Ri),#*A 


659 


002266 


001402 






BEQ 


TDRV 


660 


002270 


012703 


000400 




MOV 


#UNIT, DRIVE 


661 


002274 






TDRV! 






662 


002274 


104401 


002302 




TYPE 


,658 ; 


663 


002300 


000411 






BR 


64$ ; 


664 








M65SS 


, ASCIZ 


<15><12>*TESTING 


665 


002324 






64$: 






666 


002324 


112167 


176704 




M0V8 


(R1)+#CURDRV 


667 


002330 


104401 


001234 




TYPE 


,CURDRV 


668 


002334 


104401 


001177 




TYPE 


,$CRLF 


669 


002340 


105711 






TSTB 


(Rl) 


670 


002342 


001002 






BNE 


IS 


671 


002344 


012701 


001224 




MOV 


#DRVKEY,R1 


672 


002350 


010137 


001230 


IS! 


MOV 


R1#9#DRVPNT 


673 


002354 


005737 


001232 




TST 


PSASKKEY 


674 


002360 


002007 






BGE 


2$ 


675 


002362 


005000 






CLR 


R0 


676 


002364 


000000 






HALT 




677 


002366 


022767 


000176 


176544 


CMP 


#SWREG,SWR 


678 


002374 


001001 






BNE 


20$ 


679 


002376 


104405 






GTSWR 




680 


002400 






20SS 






681 








;THIS 


CODE IS FOR ACTlt 6 DDP 


682 


002400 


005737 


000042 


2S S 


TST 


P#42 


683 


002404 


001406 






BEQ 


TST1 


684 


002406 


010314 






MOV 


DRIVE, gTACS 


685 


002410 


112714 


000017 




MOVB 


f?REWIND!GO,PTACS 


686 


002414 


032714 


000040 


3SS 


BIT 


•READYf PTACS 


687 


002420 


001775 






BEQ 


3$ 



JSETUP TAli TRAP VECTOR 

rLOCKOUT ALL I/O INT 

fSETUP TACS 

I SETUP TADB 

flF FIRST PASS SETUP FOR EXTRA LONG WAIT LOOPS 

^OTHERWISE USE OLD VALUES 

J ZERO THE TEST NUMBER 
?SET DRIVE TO «A H 
jGET DRIVE POINTER 
jIS IT DRIVE «A H ? 
?BR IF YES 
?SET DRIVE TO "B" 



fjTYPE ASCIZ STRING 
$GET OVER THE ASCIZ 



?SETUP TO TYPE CURRENT DRIVE 

jTYPE A CR & LF 

jLAST DRIVE BEEN SELECTED 

;BR IF NO 

fRESET DRIVE POINTER 

jSAVE DRIVE POINTER FOR NEXT TIME 

jGO START TESTING IF NO MANUAL 

; OPERATIONS REQUESTED 

jGIVE CONTROL TO THE OPERATOR 

jUSING S/W SWITCH REG? 

jNO« GET OUT 

j GET VALUE 

^CONTINUE 

j IS THERE A MONITOR? 

j GO START TESTING IF NO 

;IF YES SELECT DRIVE 

;SEND TAPE TO BOT 

jWAIT ON READY 

;FALL THRU IF READY=i 
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588 








689 








690 








691 








692 








693 








694 








695 








696 


002422 


000004 




697 


002424 


012767 


000001 176534 


698 


002432 


005737 


001100 


699 


002436 


001021 




700 


002440 


000005 




701 


002442 


010314 




702 


002444 


112714 


000017 


703 


002450 


104412 




704 


002452 


112714 


000001 


705 


002456 


104412 




706 


002460 


163737 


006706 006732 


707 


002466 


005237 


006732 


708 


002472 


006137 


006732 


709 


002476 


006137 


006732 


710 








711 








712 








713 


002502 


000004 




714 


002504 


012767 


000001 176454 


715 


002512 


005767 


176362 


716 


002516 


001053 




717 


002520 


104401 


002526 


718 


002524 


000423 




719 








720 


002574 






721 


002574 


104401 


002602 


722 


002600 


000422 




723 








724 


002646 






725 








726 








727 








728 


002646 


000004 




729 


002650 


012767 


000012 176310 


730 


002656 


012767 


002700 176222 


731 


002664 


004037 


007436 


732 


002670 


012674 




733 


002672 


000402 




734 


002674 


000137 


003120 


735 


002700 


000005 




736 


002702 


010314 




737 


002704 


032714 


001000 


738 


002710 


001001 




739 


002712 


104001 




740 








741 








742 








743 


002714 


000004 





5 ////////////////////////////////////////////////////////////////////// 
////////////////////////////////////////////////////////////////////// 

• #■»■#*■»####«•*#*###■»«•#«■#«■»###*#«•##»«■■»«.##*#«.«.# £##&##*■ «•■&#•&#■»#*»«.##■»# 
THIS ISN'T A REAL TEST BUT A SMALL ROUTINE TO DETERMINE THE MAX, 
TIME FOR THE WAIT LOOPS (WAIT FOR "READY" AND "TRANSFER REQUEST") 

• •»#**#*#*•»»#* &#######*#######«■«■»###.»»«■# «■#«■##•»## «■ ##*#«•##•»######*•» 
*TEST 1 ROUTINE TO DETERMINE TIME OF WAIT LOOPS 

TST1S SCOPE 

#1,STIMES i;DO 1 ITERATION 

(MSPASS ;IS THIS THE FIRST PASS? 

TST2 ;?BR IF NO 



MOV 

TST 

BNE 

RESET 

MOV 

MOVB 



?SELECT THE DRIVE 
jSTART A REWIND 
;WAIT FOR READY 
;WRITE A FILE GAP 
?WAIT ON READY 
;GET THE TIME IT TOOK 
jMAKE IT BIGGER 



DRIVE, 9TACS 

#REWIND$GO,PTACS 
WAITREADY 

MOVB #WFGJGO,§TACS 
WAITREADY 

SUB P#HGHTIM,g#MAXCNT 
INC $#MAXCNT 
ROL P8MAXCNT 
ROL £#MAXCNT 

• • »»■»»•»#«•««■«■•»«##«■«•#*#•»#»*«•#«■*##«»#«■»•»«. «•##■»««•##■&•&.»■»■■$##,». •».»#. ##.».& «■#«■•» 
?*TEST 2 SETUP FOR MANUAL INTERVENTION 

• • •»####&»## «■*#*«■#«•*«•*»#####«■##•»■»•»*«•»##*#*#*«■««•«.## «.###«,««.s«##»#### 

;DO 1 ITERATION 

jIS THIS THE FIRST PASS? 
;SKIP TYPE OUT IF YES 
;TYPE ASCIZ STRING 
jGET OVER THE ASCIZ 



TST2S 


SCOPE 






MOV 


#1,$TIMES 




TST 


SPASS 




BNE 


TST3 




TYPE 


,65$ 




BR 


64$ 


j;65S! 


„ASCIZ 


<15><12>"DIP 


645: 








TYPE 


,67$ 




BR 


66$ 


; ?67$: 


.ASCIZ 


<15><12> M HIT 



*CR 



JTYPE ASCIZ STRING 
|GET OVER THE ASCIZ 
WHEN READY TO CONTINUE"<15><12> 



66$; 

jaTEST 3 SETUP FOR POWER DOWN TU60 TEST 

I j »##**#»«»##**##»»#**«#«#»*•»#■»«•##########*#»*©«.##«■»«.«.##«.#*»###»«. 

TST3S SCOPE 

? jDO 10. ITERATIONS 
f?SET SCOPE LOOP ADDRESS 



1$I 



MOV 

MOV 

JSR 

MTUPWR 

BR 

JMP 

RESET 

MOV 

BIT 

BNE 

ERROR 



#10 9 ,$TIMES 

$1$,$LPADR 

R0,£8ASKQUES 



|DO THIS TEST 
jSKIP POWER FAIL TESTS 

jCLEAR INTERFACE 
j SELECT DRIVE 
|IS "OFFLINE" ON A ONE? 
??BR IF YES 

j«OFFLINE B BIT ISN'T ON A ONE 

J&TEST 4 TEST "OFFLINE" WHEN TU60 IS POWERED DOWN 

1 ?#**«#«#■»■»«.«#«■■»#■»#«##■«••»##■»*»■»####**###*#■»####«.*«.#»««.#«■#«.#«.««###«• 

TST4S SCOPE 



1$ 
9#T-ST6 

DRIVE, MACS 

#OFFLINE,?TACS 

TST4 

1 



TA11 MANUAL INTERVENTION TEST MAINDEOi l«DZTAOC 



DZTACC 


NEW 


T4 


TEST "OFFLINE" 


WHEN TU60 IS POWERED DOWN 


744 


002716 


012767 


003062 176244 




MOV 


#TST5,$ESCAPE 


745 


002724 


112714 


000001 




MOVB 


#WFG«GO,3TACS 


746 


002730 


104412 






WAITREADY 


747 


002732 


005714 






TST 


£TACS 


748 


002734 


100401 






BMI 


1$ 


749 


002736 


104001 






ERROR 


1 


750 


002740 


112714 


000003 


IS: 


MOVB 


#WRITEJGO,gTACS 


751 


002744 


104412 






WAITREADY 


752 


002746 


005714 






TST 


PTACS 


753 


002750 


100401 






BMI 


2S 


754 


002752 


104001 






ERROR 


1 


755 


002754 


112714 


000005 


2SS 


MOVB 


#READ!GQ,PTACS 


756 


002760 


104412 






WAITREADY 


757 


002762 


005714 






TST 


@TACS 


758 


002764 


100401 






BMI 


3$ 


759 


002766 


104001 






ERROR 


1 


760 


002770 


112714 


000007 


3SS 


MOVB 


#BSFG!GO,£TACS 


761 


002774 


104412 






WAITREADY 


762 


002776 


005714 






TST 


giTACS 


763 


003000 


100401 






BMI 


4$ 


764 


003002 


104001 






ERROR 


1 


765 


003004 


112714 


000011 


4$: 


MOVB 


#BSBGlGO,gTACS 


766 


003010 


104412 






WAITREADY 


767 


003012 


005714 






TST 


?TACS 


768 


003014 


100401 






BMI 


5$ 


769 


003016 


104001 






ERROR 


1 


770 


003020 


112714 


000013 


5$: 


MOVB 


#SFFG1G0, (STAGS 


771 


003024 


104412 






WAITREADY 


772 


003026 


005714 






TST 


3TACS 


773 


003030 


100401 






BMI 


6$ 


774 


003032 


104001 






ERROR 


1 


775 


003034 


112714 


000015 


6$S 


MOVB 


#SFBG!GQ, STAGS 


776 


003040 


104412 






WAITREADY 


777 


003042 


005714 






TST 


gTACS 


778 


003044 


100401 






BMI 


7S 


779 


003046 


104001 






ERROR 


1 


780 


003050 


112714 


000017 


7$: 


MOVB 


8REWINDIGO, STAGS 


781 


003054 


005714 






TST 


9TACS 


782 


003056 


100401 






BMI 


TST5 


783 


003060 


104001 






ERROR 


1 


784 








• i *##*##*■»«■##*##•»•»«»#»####*■»*#•»# 


785 








;#TEST 


5 


POWER UP THE TU6 


786 








• •######•»##■&##•»##««•■&#•»#*#*»*■#«•■»» 


787 


003062 


000004 




TST5J 


SCOPE 




788 


003064 


012767 


003104 176014 




MOV 


#2$,$LPADR 


789 


003072 


004037 


007436 




JSR 


R0,P#ASKQUES 


790 


003076 


012714 






MPWRUP 




791 


003100 


000240 






NOP 




792 


003102 


000005 




1SS 


RESET 




793 


003104 


010314 




2$; 


MOV 


DRIVE, PTACS 


794 


003106 


104412 






WAITREADY 


795 


003110 


032714 


001000 




BIT 


#OFFLINE,&TACS 


796 


003114 


001401 






BEQ 


TST6 


797 


003116 


104001 






ERROR 


1 


798 








• J #»#•»####«■####»###«■# ##########» 


799 








?*TEST 


6 


TEST "OFFLINE" W 
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!} ESCAPE TO TEST 5 ON ERROR 
jTRY TO DO A "WFG" 
;WAIT IN "READY" 
jCHECK FOR AN "ERROR* 
?BR IF "ERROR"=l 

"ERROR"s0 
•TRY TO DO A "WRITE" 
?WAIT ON "READY" 
;CHECK ERROR FLAG 

"ERROR"s0 

TRY TO DO A "READ" 
WAIT ON "READY" 
CHECK ERROR FLAG 

"ERROR"=0 

TRY TO DO A "BSFG" 
WAIT ON "READY" 
CHECK ERROR FLAG 

"ERROR=0 

TRY TO DO A "BSBG" 
WAIT ON "READY" 
CHECK ERROR FLAG 

"ERROR H s0 

TRY TO DO A "SFFG" 
WAIT ON "READY" 
CHECK ERROR FLAG 

"ERROR"=0 

TRY TO DO A "SFBG" 
WAIT ON "READY" 
CHECK ERROR FLAG 

:"ERROR n =0 
;TRY TO DO A REWIND 
(CHECK ERROR FLAG 
JBR IF ERROR=l 

'ERROR"s0 

i «•#■»#«■####»######■»#«•■».&«• «•###«■#**■»«■ 

! 

:;SET SCOPE LOOP ADDRESS 
;MESSAGE POINTER 



;SELECT DRIVE 
;WAIT ON READY 
JDID OFFLINE CLEAR? 
;;BR IF YES 

;OFFLINE = 1 

HEN DRIVE IS EMPTY 



TAH MANUAL INTERVENTION TEST MAINDEC-i 1 -DZTAC-C 
DZTACC a NEW T6 TEST "OFFLINE" WHEN DRIVE IS EMPTY 
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801 
802 
803 
804 
805 
806 



809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 



003120 
003122 
003130 
003134 
003136 
003140 
003144 
003146 
003150 
003154 
003160 
003162 



003164 
003166 
003174 
003200 
003202 
003204 
003210 
003212 
003214 
003220 
003222 



003224 
003226 
003234 



003242 
003244 
003246 
003252 
003254 
003256 
003260 
003262 

003262 
003270 
003274 
003276 
003302 
003304 
003306 
003310 
003312 
003316 



012767 
004037 
012732 
000402 
000137 
000005 
010314 
042714 
032714 
001001 
104001 



012767 
004037 
013000 
000402 
000137 
000005 
010314 
032714 
001401 
104001 



003372 
104413 
052714 
104412 



003146 
007436 



001000 
001000 



003212 
007436 



SCOPE 

;SET SCOPE LOOP ADDRESS 



MOV 

JSR 

MOFFLN 

BR 

JMP 

RESET 

MOV 

BIC 

BIT 

BNE 

ERROR 



#2$,$LPADR 
R0,ia#ASKQUES 



1$ 
&8TST10 



DRIVE, £TACS 

#OFFLINE,PTACS 

#OFFLINE,eTACS 

TST7 

I 
j #■»«•#•»«• #*»####«•##*##■» ##■» ##•»*•»■» # #•»##■##■& •»«•#•&# 
»TEST 7 PUT DRIVE "ONLINE" 



;MESSAGE POINTER 

;DO TEST 
SKIP THIS TEST 

;CLEAR THE WORLD 

jSELECT DRIVE 

;TRY TO CLEAR OFFLINE INDICATION 

;TEST FOR "OFFLINE" 
;BR IF "OFFLINE"=l 

;"OFF11NE=0 



#«■•&■&##*«•#«•#«■#*■## 



1$: 

2$: 



SCOPE 

MOV 

JSR 

MTAPE 

BR 

JMP 

RESET 

MOV 

BIT 

BEQ 

ERROR 



#2$,$LPADR 
R0,3#ASKQUES 



IS 
£#TST10 



;?SET SCOPE LOOP ADDRESS 



jDO TEST 
?SKIP THIS TEST 



jSELECT DRIVE 
?IS DRIVE OFFLINE? 
;;BR IF NO 

;DRIVE IS OFFLINE 



012767 
012767 



000005 
010314 
112714 
104412 
005714 
100001 
104001 



012767 
112714 
104413 
112715 
005327 



175732 
175726 



DRIVE, #TACS 

#OFFLINE,PTACS 

TST10 

1 

j #»##*■»«■» ■»•»#*«•#«■«•■»»#*■»»#»«■»•&##*■»•###«■*#######*#*# #«.#####^##«. «.###•» 
#TEST 10 PUT DATA ON TAPE FOR WRITE LOCK TEST 

TST10! SCOPE 

MOV 81,STIMES JfDO 1 ITERATION 

MOV #1S,$ESCAPE jjESCAPE TO 1$ ON ERROR 

jHANG IN THIS TEST UNTIL DATA IS ON TAPE WITH NO ERRORS 
IS: RESET 

MOV DRIVE, 9TACS 
MOVB #REWIND!GO, STAGS 
WAITREADY 



TST 
BPL 
ERROR 



PTACS 
28 

i 



?WAIT ON READY 
fCHECK FOR ERROR 



000006 000014 
000003 

000377 



003320 012767 000006 000014 



jWRITE A BLOCK OF 6 BYTES 

MOV U6,65$ 

MOVB #WRITElGQ,giTACS 

WAITXFER 

MOVB #377,PTADB 

DEC (PC)* 



BGT 64S 

WAITXFER 

BIS #ILBS,eTACS 

WAITREADY 

JWRITE A BLOCK OF 6 BYTES 

MOV #6,67$ 



; M ERROR B = 1 



JSETUP FOR 6 BYTES 

;START A WRITE 

jWAIT ON TRANSFER REQUEST 

jLOAD DATA BUFFER 

;MORE TO DO? 

;NUMBER OF BYTES TO WRITE GOES HERE 

?BR IF YES 

jWAIT ON TRANSER REQUEST 

yWRlTE CRC 

;WAIT ON READY 

;SETUP FOR 6 BYTES 



TA11 MANUAL INTERVENTION TEST MAINDEC-1 1-DZTAOC 
DZTACCNEW T10 PUT DATA ON TAPE FOR WRITE LOCK TEST 
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856 


003326 


112714 


000003 




MOVB 


#WRITE1G0,§TACS 


857 


003332 


104413 




66$: 


WAITXFER 


858 


003334 


112715 


000377 




MOVB 


#377,£TADB 


859 


003340 


005327 






DEC 


(PC) + 


860 


003342 


000000 




67$: 







861 


003344 


003372 






BGT 


66$ 


862 


003346 


104413 






WAITXFER 


863 


003350 


052714 


000020 




BIS 


#ILBS,?TACS 


864 


003354 


104412 






WAITREADY 


865 


003356 


112714 


000001 




MOVB 


#WFGSGQ,PTACS 


866 


003362 


104412 






WAITREADY 


867 










; WRITE 


A BLOCK OF 6 BYTES 


868 


003364 


012767 


000006 


000014 


MOV 


#6,69$ 


869 


003372 


112714 


000003 




MOVB 


#WRITEiGO,gTACS 


870 


003376 


104413 




68$; 


WAITXFER 


871 


003400 


112715 


000377 




MOVB 


#377,?TADB 


872 


003404 


005327 






DEC 


(PC) + 


873 


003406 


000000 




69$: 







874 


003410 


003372 






BGT 


68$ 


875 


003412 


104413 






WAITXFER 


876 


003414 


052714 


000020 




BIS 


#ILBS, STAGS 


877 


003420 


104412 






WAITREADY 


878 








•;#**###*#*#*•»###«•#«*#*•»##*'»#•»#*##«■*# 


879 








;*TEST 


11 


TEST "WRITE LOCK" WHE 


880 








• j #######«•#«■##■#«■# •*»■»#■*# »#«•##### #•»*#■»•* 


881 


003422 


000004 




tsth: 


SCOPE 




882 


003424 


012767 


000001 


175534 


MOV 


#1,$TIMES ?;DO 


883 


003432 


012767 


003462 


175446 


MOV 


#1$,$LPADR JJSET 


884 


003440 


012767 


003772 


175522 


MOV 


#TST12f $ESCAPE ?|ESC 


885 


003446 


004037 


007436 




JSR 


R0,@#ASKQUES 


886 


003452 


013021 






MWRTLK 




887 


003454 


000402 






BR 


1$ 


888 


003456 


000137 


005716 




JMP 


3STST22 jSKIP 


889 


003462 






i$: 






890 


003462 


000005 






RESET 




891 


003464 


010314 






MOV 


DRIVE, gTACS 


892 


003466 


112714 


000017 




MOVB 


#REWIND»GO,OTACS 


893 


003472 


104412 






WAITREADY 


894 


003474 


005714 






TST 


0TACS 


895 


003476 


100001 






BPL 


2$ 


896 


003500 


104001 






ERROR 


1 


897 


003502 


032714 


020000 


2$: 


BIT 


#LEADER,gTACS 


898 


003506 


001001 






BNE 


3$ 


899 


003510 


104001 






ERROR 


1 


900 


003512 






3$: 






901 


003512 


112714 


000000 




MOVB 


#WFG, PTACS 


902 


003516 


032714 


010000 




BIT 


#WPTLOCK,PTACS 


903 


003522 


001001 






BNE 


64$ 


904 


003524 


104001 






ERROR 


1 


905 


003526 






64$; 






906 


003526 


112714 


000002 




MOVB 


#WRITE, STAGS 


907 


003532 


032714 


010000 




BIT 


tfWRTLOCK, STAGS 


908 


003536 


001001 






BNE 


65$ 


909 


003540 


104001 






ERROR 


1 


910 


003542 






65$: 






911 


003542 


112714 


0F0004 




MOVB 


#READ,STACS 
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JSTART A WRITE 




jWAIT ON TRANSFER 


REQUEST 


;LOAD DATA BUFFER 




jMORE TO DO? 




;NUMBER OF BYTES 


TO WRITE GOES HERE 


}BR IF YES 




jWAIT ON TRANSER 


REQUEST 


;WRITE CRC 




jWAIT ON READY 




;WRITE A FILE GAP 




jWAIT ON "READY" 





jSETUP FOR 6 BYTES 

,• START A WRITE 

jWAIT ON TRANSFER REQUEST 

;LOAD DATA BUFFER 

yMORE TO DO? 

^NUMBER OF BYTES TO WRITE GOES HERE 

;BR IF YES 

;WAIT ON TRANSER REQUEST 

;WRITE CRC 

;WAIT ON READY 
# *###*^ ###########»#### #■»«•»•» 
N AT CLEAR LEADER 

1 ITERATION 

SCOPE LOOP ADDRESS 
APE TO TEST 12 ON ERROR 

jHAVE OPERATOR SET "WRITE LOCK" 

;DO TEST 
WRITE LOCK TESTS 

jCLEAR ALL 
;SELECT DRIVE 
;GO TO "SOT"' 

?IS "ERROR n =l 

jBR IF NO 

;" ERROR "=1 

jCHECK FOR CLEAR LEADER 

;BR IF ON CLEAR LEADER 

;REWIND DIDN'T GO TO BOT 

•LOAD A "WFG" 

;IS "WRITE LOCK ERROR" s "1" 

• BR I F YES 

•"WRITE LOCK ERROR" NOT EQUAL "1» 

;LOAD A "WRITE" 

;IS "WRITE LOCK ERROR" s "1" 

;BR IF YES 

;"WRITE LOCK ERROR" NOT EQUAL "1" 

;LOAD A "READ" 



TAH MANUAL INTERVENTION TEST MAINDEC-1 1 -DZTAC«C 



DZTACC, 


NEW 


Til 


TEST " 


912 


003546 


032714 


010000 


913 


003552 


001401 




914 


003554 


104001 




915 


003556 






916 


003556 


112714 


000006 


917 


003562 


032714 


010000 


918 


003566 


001401 




919 


003570 


104001 




920 


003572 






921 


003572 


112714 


000010 


922 


003576 


032714 


010000 


923 


003602 


001401 




924 


003604 


104001 




925 


003606 






926 


003606 


112714 


000012 


927 


003612 


032714 


010000 


928 


003616 


001401 




929 


003620 


104001 




930 


003622 






931 


003622 


112714 


000014 


932 


003626 


032714 


010000 


913 


003632 


001401 




934 


003634 


104001 




935 


003636 






936 


003636 


112714 


000016 


937 


003642 


032714 


010000 


938 


003646 


001401 




939 


003650 


104001 




940 


003652 






941 


003652 


112714 


000000 


942 


003656 


005714 




943 


003660 


100401 




944 


003662 


104001 




945 


003664 






946 


003664 


112714 


000002 


947 


003670 


005714 




948 


003672 


100401 




949 


003674 


104001 




950 


003676 






951 


003676 


112714 


000004 


952 


003702 


005714 




953 


003704 


100401 




954 


003706 


104001 




955 


003710 






956 


003710 


112714 


000006 


957 


003714 


005714 




958 


003716 


100401 




959 


003720 


104001 




960 


003722 






961 


003722 


112714 


000010 


962 


003726 


005714 




963 


003730 


100401 




964 


003732 


104001 




965 


003734 






966 


003734 


112714 


000012 


967 


003740 


005714 





WRITE LOCK" WHEN AT CLEAR LEADER 
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BIT 
BEQ 
ERROR 


#WRTLOCK, STAGS 

66$ 

1 


;IS "WRITE LOCK ERROR" s "0" 

jBR IF YES 

;"WRITE LOCK ERROR" NOT EQUAL 


MOVB 
BIT 
BEQ 
ERROR 


#BSFG, STAGS 
#WRTLOCK, STAGS 
67$ 
1 


;LOAD A "BSFG" 

jlS "WRITE LOCK ERROR" = "0" 

;BP IF YES 

; n WRITE LOCK ERROR" NOT EQUAL 


MOVB 
BIT 
BEQ 
ERROR 


#BSBG, STAGS 

#WRTLOCK,afACS 

68$ 

1 


jLOAD A "BSBG" 

?IS "WRITE LOCK ERROR" = "0" 

JBR IF YES 

;"WRITE LOCK ERROR" NOT EQUAL 


MOVB 
BIT 
BEQ 
ERROR 


8SFFG, STAGS 
SWRTLOCK, STAGS 
69$ 
1 


jLOAD A "SFFG" 

; IS "WRITE LOCK ERROR" s "0" 

JBR IF YES 

; H WRITE LOCK ERROR" NOT EQUAL 


MOVB 
BIT 
BEQ 
ERROR 


#SFBG, STAGS 
8WRTLOCK, STAGS 
70$ 
1 


jLOAD A "SFBG" 

|IS "WRITE LOCK ERROR" s "0" 

;BR IF YES 

;"WRITE LOCK ERROR" NOT EQUAL 


MOVB 
BIT 
BEQ 
ERROR 


8REWIND, STAGS 
IWRTLOCK, STAGS 
71$ 

1 


jLOAD A "REWIND 88 

;IS "WRITE LOCK ERROR" s "0" 

;BR IF YES 

j "WRITE LOCK ERROR" NOT EQUAL 


MOVB 
TST 
BMI 
ERROR 


#WFG, STAGS 

STAGS 

72$ 

1 


jCHECK "ERROR" WITH 
; SAMPLE THE w ERROR H 
jBR IF "ERROR" = 1 
j "ERROR" NOT = 1 


"WFG" 
BIT 


MOVB 
TST 
BMI 
ERROR 


#WRITE, STAGS 

STAGS 

73$ 

1 


jCHECK "ERROR" WITH 
;SAMPLE THE "ERROR" 
;BR IF "ERROR" = 1 
j "ERROR" NOT = 1 


"WRITE" 
BIT 


MOVB 
TST 
BMI 
ERROR 


#READ, STAGS 

STAGS 

748 

1 


;CHECK "ERROR" WITH 
;SAMPLE THE "ERROR" 
?BR IF "ERROR" a 1 
? "ERROR* NOT x 1 


"READ" 
BIT 


MOVB 
TST 
BMI 
ERROR 


#BSFG, STAGS 

PTACS 

75$ 

1 


jCHECK "ERROR" WITH 
jSAMPLE THE "ERROR" 
jBR IF "ERROR" a 1 
?"ERROR" NOT s 1 


"BSFG" 
BIT 


MOVB 
TST 
BMI 
ERROR 


8BSBG, STAGS 

STAGS 

76$ 

1 


jCHECK "ERROR" WITH 
j SAMPLE THE "ERROR" 
;BR IF "ERROR" = 1 
j"EFROR" NOT a 1 


"BSBG" 
BIT 


MOVB 
TST 


#SFFG, STAGS 
STAGS 


?CHECK "ERROR" WITH 
^SAMPLE THE "ERROR" 


"SFFG" 
BIT 



Mil M&NUAL ZNTGRVENTION KM MAXNDEC-11-D1TAOC 

omcc.NEN fii TSif "write low mm At clear lkadsr 
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968 


001741 


!0@«S 




969 


§01744 


104001 




970 


003746 






971 


003746 


118714 


000014 


973 


003712 


000714 




973 


003714 


!004@i 




974 


0037S6 


10400! 




97S 


003760 






976 


003760 


112714 


000016 


977 


003764 


00S714 




978 


003766 


100001 




979 


303770 


S04001 




980 


003772 






981 








982 








983 








984 


003772 


000004 




985 


003774 


012767 


004052 175104 


986 


004002 


012767 


004332 175160 


98? 


004010 


000005 




988 


004012 


010314 




989 


004014 


112714 


000017 


990 


004020 


104412 




991 


004022 


112714 


000005 


992 


004026 


104413 




993 


004030 


105715 




994 


004032 


104413 




995 


004034 


052714 


000020 


996 


004040 


104412 




997 


004042 


032714 


040000 


998 


004046 


001001 




999 


004050 


104001 




1000 


004052 






1001 


004052 


112714 


000000 


1002 


004056 


005714 




1003 


004060 


100401 




1004 


004062 


104001 




1005 


004064 






1006 


004064 


112714 


000002 


1007 


004070 


005714 




1008 


004072 


100401 




1009 


004074 


104001 




1010 


004076 






1011 


004076 


112714 


000004 


1012 


004102 


005714 




1013 


004104 


100401 




1014 


004106 


104001 




1015 


004110 






1016 


004110 


112714 


000006 


1017 


004114 


005714 




1018 


004116 


100001 




1019 


004120 


104001 




1020 


004122 






1021 


004122 


112714 


000010 


1022 


004126 


005714 




1023 


004130 


100001 





7811 



BMI 
IRROP 

MOVB 
TST 
BMI 
ERROR 



77S 

I 

ISFBGrlTACS 

ITACI 

78S 

I 



#REWIND,PTAC§ 

§TACS 

79$ 

1 



MOVB 

TST 

BPL 

ERROR 
7911 

j $##»######################## 
?*TEST 12 TEST "WRITE LOCK" 
f !######&##•&#■»############. 
TST125 SCOPE 

MOV ffl$,$LPADR 

MOV #TST13,$ESCAPE 

RESET 

MOV DRIVE, ®TACS 

MOVB ®REWIND!GO,iTACS 

WAITREADY 

MOVB #READ!GO,3TACS 

WAITXFER 

TSTB &TADB 

WAITXFER 

BIS #ILBS,f>TACS 

WAITREADY 



BIT 
BNE 
ERROR 

MOVB 
TST 

BMI 
ERROR 

MOVB 
TST 
BMI 
ERROR 

MOVB 
TST 
BMI 
ERROR 

MOVB 
TST 
BPL 
ERROR 

MOVB 

TST 

BPL 



#CRCERR,gTACS 

IS 



#WFG, STAGS 

S&TACS 

64S 



#WRITE#9TACS 

fTACS 

65$ 



#READ,PTACS 

gTACS 

66$ 



#BSFG,§TACS 

gTACS 

67S 



#BSBG,@TACS 

f»TACS 

68S 



jbr if ®mwn® « 1 

? M ERH0R H NOT m I 

teHEgK "ERROR" WITH «SFBG" 
I SAMPLE THE "ERROR" BIT 
jBR IF "ERROR 8 ■ 1 
TERROR® NOT m 1 

jCHiCK «ERROR« WITH "REWIND" 
jSAMPLE THE "ERROR* BIT 
?BR IF "ERROR* ■ 
? "ERROR" NOT s 



WITH "CRC ERROR" 



?SET SCOPE LOOP ADDRESS 

? ESCAPE TO TEST 13 ON ERROR 

?INIT. THE INTERFACE 

fSELECT DRIVE 

j GO TO BOT 

fWAlT ON READY 

jGET OVER FIRST BLOCK OF DATA 

JKNOCK DOWN H XFER REQ" 

jSHUT DOWN GENERATE CRC ERR 

;IS CRC ERROR FLAG=1? 

;BR IF YES 

j NO CRC ERROR 

?CHECK "ERROR" WITH "WFG 88 
jSAMPLE THE "ERROR" BIT 
;BR IF "ERROR" s 1 
; "ERROR" NOT a 1 

jCHECK "ERROR" WITH "WRITE" 
?SAMPLE THE "ERROR" BIT 
jBR IF "ERROR" = 1 
TERROR" NOT = 1 

fCHECK "ERROR" WITH "READ" 
,'SAMPLE THE "ERROR" BIT 
;BR IF "ERROR" a 1 
;"ERROR" NOT a 1 

;CHECK "ERROR" WITH "BSFG" 
^SAMPLE THE "ERROR" BIT 
;BR IF "ERROR" a 
; "ERROR" NOT a 

;CHECK "ERROR" WITH "BSBG" 
jSAMPLE THE "ERROR" BIT 
?BR IF "ERROR" a 



) 



) 



TA11 MANUAL INTERVENTION TEST MAINDEC-11 »DETAC»C 
DZTACC 8 NEW T12 TEST "WRITE LOCK" WITH "CRC ERROR" 
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1024 


004132 


104001 




1025 


004134 






1026 


004134 


112714 


000012 


1027 


004140 


005714 




1028 


004142 


100001 




1029 


004144 


104001 




1030 


004146 






1031 


004146 


112714 


000014 


1032 


004152 


005714 




1033 


004154 


100001 




1034 


004156 


104001 




1035 


004160 






1036 


004160 


112714 


000016 


1037 


004164 


005714 




1038 


004166 


100001 




1039 


004170 


104001 




1040 


004172 






1041 


004172 


112714 


000000 


1042 


004176 


032714 


010000 


1043 


004202 


001001 




1044 


004204 


104001 




1045 


004206 






1046 


004206 


112714 


000002 


1047 


004212 


032714 


010000 


1048 


004216 


001001 




1049 


004220 


104001 




1050 


004222 






1051 


004222 


112714 


000004 


1052 


004226 


032714 


010000 


1053 


004232 


001401 




1054 


004234 


104001 




1055 


004236 






1056 


004236 


112714 


000006 


1057 


004242 


032714 


010000 


1058 


004246 


001401 




1059 


004250 


104001 




1060 


004252 






1061 


004252 


112714 


000010 


1062 


004256 


032714 


010000 


1063 


004262 


001401 




1064 


004264 


104001 




1065 


004266 






1066 


004266 


112714 


000012 


1067 


004272 


032714 


010000 


1068 


004276 


001401 




1069 


004300 


104001 




1070 


004302 






1071 


004302 


112714 


000014 


1072 


004306 


032714 


010000 


1073 


004312 


001401 




1074 


004314 


104001 




1075 


004316 






1076 


004316 


112714 


000016 


1077 


004322 


032714 


010000 


1078 


004326 


001401 




1079 


004330 


104001 





ERROR 

MOVB 

TST 
BPL 

ERROR 

MOVB 
TST 
BPL 
ERROR 

MOVB 
TST 
BPL 
ERROR 

MOVB 
BIT 
BNE 
ERROR 

MOVB 
BIT 
BNE 
ERROR 

MOVB 
BIT 
BEQ 
ERROR 

MOVB 
BIT 
BEQ 
ERROR 

MOVB 
BIT 
BEQ 
ERROR 

MOVB 
BIT 
BEQ 
ERROR 

MOVB 
BIT 
BEQ 
ERROR 

MOVB 
BIT 
BEQ 
ERROR 



#SFFG,0TACS 

PTACS 

69S 

1 

#SFBG,£TACS 

gTACS 

70S 

1 

®REWIND,gTACS 

?TACS 

71$ 



#WFG, STAGS 

#WRTLOCK,@TACS 

72S 



#WRITE,gTACS 

#WRTLOCK,gTACS 

73S 

I 

8READ,£TACS 

#WRTLOCK,£TACS 

74S 

1 

§BSFG,@TACS 

#WRTLOCK, PTACS 
75S 



#BS8G,@TACS 
#WRTLOCK, PTACS 
76S 



#SFFG,@TACS 

8WRTLOCK,@TACS 

77S 



#5FBG,§TACS 

«?WRTLOCK,@TACS 

78S 



#REWIND,@TACS 

8WRTLOCK,#TACS 

79S 

1 



;"ERROR" NOT s 

jCHECK "ERROR" WITH "SFFG" 
JSAMPLE THE "ERROR" BIT 
|BR IF "ERROR" a 
;"ERROR" NOT = 

fCHECK "ERROR" WITH "SFBG" 
jSAMPLE THE "ERROR* BIT 
;BR IF "ERROR" = 
? "ERROR" NOT s 

fCHECK "ERROR" WITH "REWIND" 
jSAMPLE THE "ERROR" BIT 
;BR IF "ERROR" a 
j"ERROR" NOT s 

jLQAD A "WFG" 

?IS "WRITE LOCK ERROR" a "1" 

;BR IF YES 

j"WRIT£ LOCK ERROR" NOT EQUAL "1" 

jLOAD A "WRITE" 

jIS "WRITE LOCK ERROR" a "1" 

;BR IF YES 

;"WRITE LOCK ERROR" NOT EQUAL "1" 

lLOAD A "READ" 

;IS "WRITE LOCK ERROR" a "0" 

jBR IF YES 

j"WRITE LOCK ERROR" NOT EQUAL "0" 

jLQAD A "BSFG" 

jIS "WRITE LOCK ERROR" a "0" 

,'BR IF YES 

j H WRITE LOCK ERROR" NOT EQUAL "0" 

jLOAD A "BSBG" 

jIS "WRITE LOCK ERROR" s "0" 

;BR IF YES 

I M WRITE LOCK ERROR" NOT EQUAL "0" 

fLOAD A "SFFG" 

jIS "WRITE LOCK ERROR" a "0" 

fBR IF YES 

| M WRITE LOCK ERROR" NOT EQUAL "0" 

jLOAD A "SFBG" 

IIS "WRITE LOCK ERROR" a »0« 

jBR IF YES 

?»WRITE LOCK ERROR" NOT EQUAL "0" 

jLOAD A "REWIND" 

fXS "WRITE LOCK ERROR* a "0" 

?BR IF YES 

j*WRITE LOCK ERROR" NOT EQUAL "0" 



TAI1 MANUAL INTERVENTION TEST MAlNDEOl |»DSTAOC 
DETACC.NEW T12 TEST "WRITE LOCK* WITH «CRC ERROR® 
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080 004332 

081 

082 

083 

084 004332 

085 004334 

086 004342 
004350 
004352 
004354 
004360 
004362 
004364 
004364 
004370 
004374 
004376 



089 
090 
091 
092 
093 
09 4 
095 
096 
097 
09 8 
099 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 



004404 
004410 
004412 
004414 
004414 
004420 
004424 
004426 
004430 
004430 
004434 
004440 
004442 
004444 
004444 
004450 
004454 
004456 
004460 
004460 
004464 
004470 
004472 
004474 
004474 
004500 
004504 
004506 
004510 
004510 
004514 
004520 
004522 
004524 
004524 
004530 
004532 



000004 
012767 
012767 



004364 

004644 



174S44 
174620 



010314 
032714 

001401 
104001 

112714 
032714 

001001 
104001 

U2714 

032714 
001001 
104001 

112714 

032714 
001401 
104001 

112714 
032714 
001401 
104001 

112714 
032714 

001401 
104001 

112714 
032714 
001401 
104001 

112714 
032714 
001401 
104001 

112714 
032714 



112714 

005714 



000002 
010000 



000004 
010000 



000010 
010000 



000012 
010000 



000014 
010000 



000016 
010000 



79S8 

j }###&#»&«&## 

l*TEST 13 

j {##•»###£#<&##& 

TST13S SCOPE 
MOV 
MOV 
RESET 
MOV 
BIT 
BEG 
ERROR 

1 $ S 

MOVB 
BIT 
BNE 
ERROR 

643; 

MOVB 
BIT 
BNE 
ERROR 

65S? 

MOVB 
BIT 
BEQ 
ERROR 

66SS 

MOVB 
BIT 
BEQ 
ERROR 

67SS 

MOVB 
BIT 
BEQ 
ERROR 

68$! 

MOVB 
BIT 
BEQ 
ERROR 

69SS 

MOVB 
BIT 
BEQ 
ERROR 

70$S 

MOVB 
BIT 
BEQ 
ERROR 

71$! 

MOVB 

TST 

BMI 



TEST "WRITE LOCK" WITHOUT ANY ERRORS 



#18»$LPADR 
«TST14*0ESCAPE 



MSET SCOPE LOOP ADDRESS 

? f ESCAPE TO TEST 14 ON ERROR 



DRIVE, MACS {SELECT DRIVE 

•CRCERRILEADERIFGAPITIMERR10FFLINE,GTACS {CHECK STATUS 
IS |BR IF OK TO TEST "WRITE LOCK" 

1 {TAPE ISN'T POSITIONED PROPERLY 



#WFG**TACS 

•WFTLOCK,§TACS 

64$ 

1 

8WRITE,MACS 

#WRTLOCK,MACS 

65$ 

I 

• PEAD»mcS 
#WRTL0CK # 8TACS 

66S 

1 

S8SFG,MACS 

#WRTLOCK,*TACS 

678 

1 

#BSBG,MACS 

#WRTLOCK,9TACS 

6SS 



&SFFG,MACS 

#WPTLOCK,MACS 

69S 

1 

#5FBG,MACS 
»WRTL0CK,8TACS 

70$ 



#REWIND f MACS 

#WRTLOCK,MACS 
71S 

1 

#WFG,MACS 

MACS 

72$ 



{LOAD A «WFG M 

{IS "WRITE LOCK ERROR" s »1« 

{BR IF YES 

?«WRITE LOCK ERROR® NOT EQUAL " 1 * 

{LOAD A "WRITE" 

{IS "WRITE LOCK ERROR" s " 1 " 

jBR IF YES 

j "WRITE LOCK ERROR® NOT EQUAL »1 M 

{LOAD A «READ W 

? IS «WRITE LOCK ERROR" m "0" 

tBR IF YES 

{"WRITE LOCK ERROR* NOT EQUAL "0" 

{LOAD A "BSFG" 

{IS "WRITE LOCK ERROR" as "0" 

{BR IF YES 

? "WRITE LOCK ERROR" NOT EQUAL M 0" 

{LOAD A "BSBG" 

;IS "WRITE LOCK ERROR" s "0" 

{BR IF YES 

{"WRITE LOCK ERROR" NOT EQUAL "0" 

{LOAD A "SFFG" 

{IS "WRITE LOCK ERROR" s "0" 

{BR IF YES 

{"WRITE LOCK ERROR" NOT EQUAL "0* 

jLOAD A "SFBG" 

;IS "WRITE LOCK ERROR" s "0" 

{BR IF YES 

j "WRITE LOCK ERROR" NOT EQUAL "0" 

{LOAD A "REWIND" 

;IS "WRITE LOCK ERROR" s "0" 

{BR IF YES 

{"WRITE LOCK ERROR" NOT EQUAL "0" 

{CHECK "ERROR" WITH "WFG* 
{SAMPLE THE "ERROR® BIT 
{BR IF "ERROR" * 1 



TA11 MANUAL INTERVENTION TEST MAINDEC-1 1 »DETAC«»C 
DZTACC.NEW T13 TEST "WRITE LOCK" WITHOUT ANY ERRORS 
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1136 


004534 


104001 






ERROR 


1 


1137 


004536 






72S! 






1138 


004536 


112714 


000002 




MOVB 


#WRITE r PTACS 


1139 


004542 


005714 






TST 


MACS 


1140 


004544 


100401 






BMI 


73S 


1141 


004546 


104001 






ERROR 


1 


1142 


004550 






73$! 






1143 


004550 


112714 


000004 




MOVB 


#READ#PTACS 


1144 


004554 


;E 005714 






TST 


MACS 


1145 


004556 


100001 






BPL 


74$ 


1146 


004560 


104001 






ERROR 


1 


1147 


004562 






74SS 






1148 


004562 


112714 


000006 




MOVB 


#BSFG,MACS 


1149 


004566 


005714 






TST 


MACS 


1150 


004570 


100001 






BPL 


7SS 


1151 


004572 


104001 






ERROR 


1 


1152 


004574 






75$! 






1153 


004574 


112714 


000010 




MOVB 


#BSBG,MACS 


1154 


004600 


005714 






TST 


MACS 


1155 


004602 


100001 






BPL 


76S 


1156 


004604 


104001 






ERROR 


1 


1157 


004606 






76$! 






1158 


004606 


112714 


000012 




MOVB 


#SFFG,9TACS 


1159 


004612 


005714 






TST 


MACS 


1160 


004614 


100001 






BPL 


77$ 


1161 


004616 


104001 






ERROR 


1 


1162 


004620 






77SS 






1163 


004620 


112714 


000014 




MOVB 


#SFBG,9TACS 


1164 


004624 


005714 






TST 


MACS 


1165 


004626 


100001 






BPL 


78$ 


1166 


004630 


104001 






ERROR 


1 


1167 


004632 






780? 






1168 


004632 


112714 


000016 




MOVB 


#REWIND»MACS 


1169 


004636 


00S714 






TST 


MACS 


1170 


004640 


100001 






BPL 


79$ 


1171 


004642 


104001 






ERROR 


1 


1172 


004644 






79S! 






1173 








» j-»##########&&&#'&#####®###'»#-»& 


1174 








j#TEST 


14 


TEST K WRITE LOC 


1175 








• ;»#■»######•»■»##•&############•»«•# 


1176 


004644 


000004 




TST14! 


SCOPE 




1177 


004646 


012767 


004726 174232 


MOV 


#1$,SLPADR 


1178 


004654 


012767 


005206 174306 


MOV 


#TST15,$ESCAPE 


1179 


004662 


000005 






RESET 




1180 


004664 


010314 






MOV 


DRIVE, MACS 


1181 


004666 


112714 


000017 




MOVB 


#REWIND1G0,MAC 


1182 


004672 


104412 






WAITREADY 


1183 


004674 


112714 


000005 




MOVB 


#READ!GO,MACS 


1184 


004700 


104413 






WAITXFER 


1185 


004702 


052714 


000020 




BIS 


lILBSt 8TACS 


1186 


004706 


104412 






WAITREADY 


1187 


004710 


112714 


000013 




MOVB 


#SFFGiGO,MACS 


1188 


004714 


104412 






WAITREADY 


1189 


004716 


032714 


004000 




BIT 


#FGAP,MACS 


1190 


004722 


001001 






BNE 


IS 


1191 


004724 


104001 






ERROR 


1 



"ERROR" NOT = 1 

CHECK "ERROR 55 WITH "WRITE" 
SAMPLE THE "ERROR" BIT 
BR IF "ERROR" s 1 
"ERROR" NOT s 1 

CHECK "ERROR" WITH "READ" 
SAMPLE THE "ERROR" BIT 
BR IF "ERROR" a 
"ERROR" NOT s 

CHECK "ERROR" WITH "BSFG" 
SAMPLE THE "ERROR® BIT 
BR IF "ERROR" s 
"ERROR" NOT r 

CHECK "ERROR" WITH «BSBG" 
SAMPLE THE 8 ERROR" BIT 
BR IF "ERROR" s 
"ERROR" NOT s 

{CHECK "ERROR" WITH "SFFG" 
{SAMPLE THE "ERROR" BIT 
{BR IF "ERROR" a 
{"ERROR" NOT a 

{CHECK "ERROR" WITH "SFBG" 
{SAMPLE THE «ERROR M BIT 
|BR IF "ERROR" a 
{ "ERROR" NOT a 

{CHECK "ERROR* WITH ^REWIND" 
{SAMPLE THE s ERROR" BIT 
{BR IF "ERROR" ■ 
{"ERROR" NOT a 



K 85 WITH FILE GAPsl 

j {SET SCOPE LOOP ADDRESS 
{{ESCAPE TO TEST 15 ON ERROR 
{CLEAR THE INTERFACE 
{SELECT MACS 



{START A READ 

{SHUT DOWN 

{GO TO THE FILE GAP 
{WAIT ON "READY" 
{CHECK FOR FILE GAP 
{BR IF IN A GAP 
{FILE GAP s 



TA11 MANUAL INTERVENTION TEST MAINDEC-1 1 -DZTAOC 
DZTACC.NEW T14 TEST "WRITE LOCK" WITH FILE GAPrl 
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1192 


004726 






1193 


004726 


112714 


000000 


1194 


004732 


032714 


010000 


1195 


004736 


001001 




1196 


004740 


104001 




1197 


004742 






1198 


004742 


112714 


000002 


1199 


004746 


032714 


010000 


1200 


004752 


001001 




1201 


004754 


104001 




1202 


004756 






1203 


004756 


112714 


000004 


1204 


004762 


032714 


010000 


1205 


004766 


001401 




1206 


004770 


104001 




1207 


004772 






1208 


004772 


112714 


000006 


1209 


004776 


032714 


010000 


1210 


005002 


001401 




1211 


005004 


104001 




1212 


005006 






1213 


005006 


112714 


000010 


1214 


005012 


032714 


010000 


1215 


005016 


001401 




1216 


005020 


104001 




1217 


005022 






1218 


005022 


112714 


000012 


1219 


005026 


032714 


010000 


1220 


005032 


001401 




1221 


005034 


104001 




1222 


005036 






1223 


005036 


112714 


000014 


1224 


005042 


032714 


010000 


1225 


005046 


001401 




1226 


005050 


104001 




1227 


005052 






1228 


005052 


112714 


000016 


1229 


005056 


032714 


010000 


1230 


005062 


001401 




1231 


005064 


104001 




1232 


005066 






1233 


005066 


112714 


000000 


1234 


005072 


005714 




1235 


005074 


100401 




1236 


005076 


104001 




1237 


005100 






1238 


005100 


112714 


000002 


1239 


005104 


005714 




1240 


005106 


100401 




1241 


005110 


104001 




1242 


005112 






1243 


005112 


U2714 


000004 


1244 


005116 


005714 




1245 


005120 


100401 




1246 


005122 


104001 




1247 


005124 







MOVE 
BIT 
BNE 
ERPOR 

MOVB 
BIT 
BNE 
ERROR 

MOVB 
BIT 
BEQ 
ERROR 

MOVB 
BIT 
BEQ 
ERROR 

MOVB 
BIT 
BEQ 
ERROR 

MOVB 
BIT 

BEQ 
ERROR 

MOVB 
BIT 
BEQ 
ERROR 

MOVB 
BIT 
BEQ 
ERROR 

MOVB 
TST 
BMI 
ERROP 

MOVB 
TST 
BMI 
ERROR 

MOVB 
TST 
BMI 
ERROP 



#WFG, STACS 
IWRTLOCK, STACS 
64$ 
1 

SWRITE, STACS 
#WRTL0CK, STACS 
65$ 
1 

8READ, STACS 

#WRTLOCK,gTACS 

66$ 

1 

#BSFG, STACS 
#WRTLOCK, STAGS 
67$ 
1 

#BSBG, STAGS 
SWRTLOCK, STACS 
68$ 
1 

#SFFG, STAGS 
#WRTLOCK, STAGS 
69$ 



#SFBG, STAGS 
#WRTLOCK, STAGS 
70$ 

I 

#REWIND, STAGS 
8WRTLQCK, STAGS 
71$ 
1 

#WFG, STAGS 

STAGS 

72$ 

1 

#WFITE, STAGS 

STAGS 

73$ 

1 

SREAD, STACS 

STAGS 

74$ 

I 



LOAD A "WFG® 

IS "WRITE LOCK ERROR" s «l« 

BR IF YES 

"WRITE LOCK ERROR" NOT EQUAL "1" 

LOAD A "WRITE" 

IS "WRITE LOCK ERROR" s "1" 

BR IF YES 

"WRITE LOCK ERROR" NOT EQUAL "1" 

LOAD A "READ" 

IS "WRITE LOCK ERROR" s "0" 

BR IF YES 

"WRITE LOCK ERROR" NOT EQUAL "0" 

LOAD A "BSFG* 

IS "WRITE LOCK ERROR" s "0" 

BR IF YES 

"WRITE LOCK ERROR" NOT EQUAL "0" 

LOAD A "BSBG" 

IS "WRITE LOCK ERROR" s "0 M 

BR IF YES 

"WRITE LOCK ERROR" NOT EQUAL "0" 

LOAD A "SFFG" 

IS "WRITE LOCK ERROR" r "0" 

BR IF YES 

"WRITE LOCK ERROR" NOT EQUAL "0" 

LOAD A "SFBG" 

IS "WRITE LOCK ERROR" s "0" 

BR IF YES 

"WRITE LOCK ERROR" NOT EQUAL "0" 

LOAD A "REWIND" 

IS "WRITE LOCK ERROR" s "0" 

BR IF YES 

"WRITE LOCK ERROR" NOT EQUAL "0" 

CHECK "ERROR" WITH "WFG" 
SAMPLE THE "ERROR" BIT 
BR IF "ERROR" a | 
"ERROR" NOT = 1 

CHECK "ERROR" WITH "WRITE" 
SAMPLE THE "ERROR" BIT 
BR IF "ERROR" = 1 
"ERROR" NOT s 1 

CHECK "ERROR" WITH "READ" 
SAMPLE THE "ERROR" BIT 
BR IF "ERROR" = 1 
"ERROR" NOT = 1 



TA11 MANUAL INTERVENTION TEST MAINDEC -1 1 -DETAC-C 
DZTACC.NEW T14 TEST "WRITE LOCK" WITH FILE GAPsl 



MACYli 27(732) ll-JUN-76 13:51 PAGE 28 



1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 



005124 
0051 30 
005132 
005134 
005136 
005136 
005142 
005144 
005146 
005150 
005150 
005154 
005156 
005160 
005162 
005162 
005166 
005170 
005172 
005174 
005174 
005200 
005202 
005204 
005206 



005206 
005210 
005216 
005224 
005232 
005234 
005236 
005242 
005244 
005250 
005252 
005256 
005260 
005264 
005266 
005270 
005272 
005274 
005300 
005302 
005304 

005306 
005310 
005312 
005314 
005316 
005320 



112714 
005714 
100001 
104001 

112714 
005714 
100001 

504001 

112714 
005714 

100001 
104001 

112714 
005714 
100401 
104001 

112714 
005714 
100001 
104001 



012767 
012767 
012767 



010314 
112714 
104412 
112714 
104413 
052714 
104412 
S 12714 
104412 



010314 
104412 
112714 
005001 
105201 
001376 

105714 
100001 
104001 
104412 
005714 
100401 



MOVB 
TST 
BPL 
ERROR 

MOVB 
TST 
BPL 
ERROR 

MOVB 
TST 
BPL 
ERROR 

MOVB 
TST 
BMI 
ERROP 

MOVB 
TST 
BPL 
ERROR 



#BSFG, STAGS 

STACS 

75$ 

i 

#BSBG, STACS 

STACS 

76$ 



8SFFG, STACS 

STACS 

77$ 

i 

#SFBG, STACS 

STACS 

78$ 

1 

8REWIND, STACS 

STACS 

79$ 

i 



CHECK "ERROR" WITH "BSFG" 
SAMPLE THE "ERROR" BIT 
BR IF "ERROP" s 
"ERROR" NOT s 

CHECK "ERROR" WITH "BSBG" 
SAMPLE THE "ERROR" BIT 
BR IF "ERROR" s 
"ERROR" NOT = 

CHECK "ERROR" WITH "SFFG" 
SAMPLE THE "ERROR" BIT 
BR IF "ERROR" s 
"ERROR" NOT = 

CHECK "ERROR" WITH "SFBG" 
SAMPLE THE "ERROR" BIT 
BR IF "ERROR" s 1 
"ERROR" NOT = 1 

CHECK "ERROR" WITH "REWIND" 
SAMPLE THE "ERROR" BIT 
BR IF "ERROR" s 
"ERROR" NOT s 



79$: 

?*TEST 15 TRY WRITING ON 

TST15S SCOPE 



005266 
005362 



000017 
000005 
000020 
000015 



173750 
173662 
173736 





MOV #1,STIMES 




MOV l?3$,$LPADR 




MOV #TST16,$ESCAPE 




RESET 




MOV DRIVE, STACS 




MOVB #REWINDiGO,STAC 




WAITREADY 


IS: 


MOVB 8READJGO, STACS 




WAITXFER 




BIS #ILBS, STACS 




WAITREADY 




MOVB #SFBG«GO* STACS 




WAITREADY 


3$: 


v RESET 




MOV DRIVE, STACS 




WAITREADY 




MOVB ffWRITEiGQ, STAGS 




CLR Rl 


4$: 


INCB PI 




BNE 4$ 




TSTB STACS 




BPL 5$ 




ERROR 1 


5$S 


WAITREADY 




TST STACS 




BMI 6$ 



TAPE WHEN "WRITE LOCKED" 
##»■»#######«■ #######»#####•»###• ■»##*# 

jfDO 1 ITERATION 

;;SET SCOPE LOOP ADDRESS 

;?ESCAPE TO TEST 16 ON ERROR 

jCLEAR ALL 

(SELECT DRIVE 

(GO TO BOT 

(WAIT ON READY FLAG 

(START A READ 

(WAIT ON "XFER REQ" 

(SHUT DOWN 

(WAIT ON READY 

(SPACE OVER THE 2ND BLOCK 

(WAIT ON READY FLAG 

?CLEAR ALL FLAGS 

(SELECT DRIVE 

iWAIT ON READY 

(START A "WRITE" 

(TIMER 

;COUNT THE COUNTER GIVING 

"XFER REQ" TIME TO SET IF IT 
IS GOING TO 

jCHECK "XFER REQ" 

;BR IF IT DIDN'T SET 
"XFER REQ" SET 

(WAIT ON READY 

jCHECK ERROR FLAG 

jBR IF IT IS SET 
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1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 



005322 
005324 
005330 
005332 
005336 
005342 
005344, 
005346 



005356 
005360 



005362 
005364 
005372 
005400 
005402 
005404 
005410 
005412 
005416 
005420 
005424 
005426 
005430 
005432 
005434 
005440 
005442 
005446 
005450 
005454 
005456 
005462 
005464 
005470 

005472 
005476 



005500 
005502 
005510 
005516 
005524 
005526 
005530 
005532 
005536 



104001 
112714 
104412 
012701 
112714 
005301 
002405 
104413 



000002 
000005 



005350 052714 
005354 104412 



000767 
104412 



000004 
012767 
012767 



010314 
112714 

104412 
112714 
104413 
052714 
104412 
000005 
010314 
104412 
112714 
104412 
112714 
104412 
112714 
104413 
052714 
104412 
112714 
104413 

052714 
104412 



000004 
012767 
012767 
012767 
000005 
010314 
104412 
112714 
104412 



000001 
005500 



000001 
000017 
000005 
000020 
000005 

000020 



000001 
005532 
005564 



ERROR 1 

MOVB #REWIND!G0,U^C5 

WAITREADY 

MOV #2rRi 

MOVB #READ!GO,$TACS 

DEC Rl 

BLT 8S 

WAITXFER 

BIS #ILBS,£TACS 

WAITREADY 

BR 7$ 

WAITREADY 



173574 
173570 



?*TEST 16 T 
• 5 ##«•#■»###*•#*•#### 
TST16! SCOPE 

MOV * 

MOV 

RESET 

MOV 

MOVB 

WAITREADY 

MOVB 

WAITXFER 

BIS 

WAITREADY 

RESET 

MOV 

WAITREADY 

MOVB 

WAITREADY 

MOVB » 

WAITREADY 

MOVB 

WAITXFER 

BIS 

WAITREADY 

MOVB 

WAITXFER 



RY "WFG" WHEN V 

1,$TIMES 
TST17,SESCAPE 

RIVE,@TACS 
REWINDiG0,3TACS 

PEAD!GO,aTACS 

ILBS,£TACS 

RIVE,£TACS 

WFGiGOrSTACS 

REWIND!GO,STACS 

READ!GO,@TACS 

ILBS,@TACS 

READ!GO,gTACS 



ERROR ISN'T SET 

GO TO BOT 

WAIT ON READY FLAG 

GET OVER THE TWO DATA BLOCKS 

START A READ 

COUNT THIS BLOCK 

BR IF OVER THE 2ND BLOCK? 

WAIT ON "XFER REQ" 

SHUT DOWN 

WAIT ON READY 

GO DO ANOTHER BLOCK 

IF "XFER REQ" COMES UP THERE 

IS MORE THAN TWO BLOCKS ON TAPE 

"WRITE" CAUSED DATA TO BE WRITTEN ON TAP 

RITE LOCKED 



BIS »ILBS#§TACS 

WAITREADY 

*TEST 17 TEST "WFG" ON C 
TST17: SCOPE 



173456 
173370 
173444 



MOV 


#1,STIHE5 


MOV 


#1$,$LPADR 


MOV 


#TST20,SESCAPE 


RESET 




MOV 


DRIVE, ^TACS 


WAITREADY 


MOVB 


#REWIND»G0,3TAC 


WAITREADY 



;;DO 1 ITERATION 

?;ESCAPE TO TEST 17 ON ERROR 

jSELECT DRIVE 

;GO TO BOT 

;WAIT ON READY 

jGET PAST THE FIRST BLOCK 

;WAIT ON TRANSFER REQ, 

;SHUT DOWN 

•WAIT ON READY 

jCLEAR THE WORLD 

;SELECT DRIVE 

;WAIT ON THE READY FLAG 

;START A "WFG" 

;WAIT ON READY 

;GO TO BOT 

;GET PAST 1ST BLOCK 

•SHUT DOWN 

;SEE IF 2ND BLOCK IS STILL ON TAPE 
•IF READY COMES UP THE "WFG" 
; COMMAND WROTE ON THE TAPE 
•SHUT DOWN 
jWAIT ON READY 

LEAR LEADER AND WRITE LOCKED 

;jDO 1 ITERATION 

;;SET SCOPE LOOP ADDRESS 

jjESCAPE TO TEST 20 ON ERROR 

jSELECT DRIVE 
jWAIT ON THE READY FLAG 
> jGO TO BOT 



TAil MANUAL INTERVENTION TEST MAINDEC-1 1 -DZTAC-C MACYH 27(732) 

DZTACC B NEW T17 TEST "WFG M ON CLEAR LEADER AND WRITE LOCKED 



ll-JUN-76 13:51 PAGE 30 



1 360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
n7 q 

1380 
138! 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
13^6 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 



005540 
005544 
005546 
005550 
005552 
005554 
005560 
005562 



005564 
005566 
005574 
005602 
005610 
005612 
005614 
005616 
005622 
005624 
005630 

005632 
005636 
005640 



005642 
005644 
005652 
005660 
005664 
005666 
005670 
005672 
005674 
005700 
005702 
005706 
005712 
005714 



005716 
005720 
005726 

005730 
005732 
005736 



112714 
104412 
005714 

100401 
104001 
032714 
001001 
104001 



000004 
012767 
012767 
012767 
000005 
010314 
104412 
112714 
104412 
112714 
104412 

032714 
001001 
104001 



000004 
012767 
012767 
004037 
013040 
000240 
000005 
010314 
112714 
104412 
H2714 
032714 
001401 
104001 



14 

012767 
000005 
010314 
112714 
104412 



000001 
005610 
005642 



000017 
000003 



000012 
005670 
007436 



000000 
011000 



MOVB 


ISWFG'GO, STAGS 


WAITREADY 


TST 


@TACS 


BM1 


2$ 


ERROR 


1 


BIT 


•LEADER, 9TACS 


BNE 


TST20 


ERROR 


1 



173372 

173304 
173360 



#1,STIMES 

#1$,$LPADR 

#TST21,SESCAPE 



173314 
173226 



jSTART A "WFG" 
jWAIT FOR READY 
jCHECK ERROR 
jBR IF ERR0R=1 
jERROR ISN'T ON AN ONE 
2$; BIT SLEADER,®TACS jCHECK IF STILL ON CLEAR LEADER 

jGO TO THE NEXT TEST IF IT IS 
jNOT ON CLEAR LEADER 

• ###*&##*.######» #«#■»*«■#*«■#»#»■»«•#«•*»«■##«•#*»*«• ####*#«•■»##*#***»#### 
*TEST 20 TEST "WRITE" WITH WRITE LOCK ON AND AT CLEAR LEADER 

• ###«•### »#*■»«■*#«•#■»*##»■»#»#«■**#»#■»•»•«■##»#*•»«■#*#•»#»•)(••»»*#*■»•*#«#«•*##» 
TST20S SCOPE 

jjDO 1 ITERATION 
jjSET SCOPE LOOP ADDRESS 
JJESCAPE TO TEST 21 ON ERROR 
IS! RESET jCLEAR THE WORLD 

DRIVE, PTACS jSELECT THE DRIVE 

WAITREADY jWAIT ON READY 

MOVB #REWIND«GO,PTACS jGO TO BOT 
WAITREADY jWAIT TILL READY s 1 

MOVB «?WRITEiGO,@TACS ;TRY TO START A WRITE 

WAITREADY j IF TRANSFER REQ. COMES UP 

jTHERE IS A PROBLEM WITH WRITE LOCK 
PLEADER, STAGS jMAKE SURE STILL A CLEAR LEADER 

TST21 ;?BR IF AT CLEAR LEADER 

ERROR 1 ? TAPE MOVED OFF OF CLEAR LEADER 

*TEST 21 TEST "WRITE ENABLE" 

j ###*#»*#«•*##•»»#»* »###»«■##»###«■#«•#*##«■»«•■» «■##■»«■ «■#«•#»«#«■ «•#*####### 
TST21! SCOPE 

j?DO 10, ITERATIONS 
JjSET SCOPE LOOP ADDRESS 



MOV 

MOV 

MOV 

RESET 

MOV 



BIT 

BNE 



is: 



MOV 

MOV 

JSR 

MLAST 

NOP 

RESET 

MOV 

MOVB 



#10,,STIMES 

#1$,SLPADR 

R0,P#ASKQUES 



DRIVE, ?TACS 

#REWIND!GO,eTACS 
WAITREADY 

MOVB #WFG,PTACS 
BIT #WRTLOCKJOFFLINE,PTACS 
BEQ TST22 J J 

ERROR 1 

• f *####»#####*«#######»######&#######■»•»#■»##* &###&###.»«.######.&«-i*#.» 
j*TEST 22 END OF TEST CODE 

• • «■#««•*■»■»•»#■»#««■#«■»#■» ###"»#«-##& «•«•«■#*# *«##■»**■»«# #•»«■#«■*##■»#«••»*■»#■»*#«# 
TST22S SCOPE 

#1,8TIMES JjDO 1 ITERATION 



jLOAD A B WFG R COMMAND 
;MAKE SURE THE CASSETTE IS 
"WRITE ENABLED" AND "ON LINE" 



MOV 

RESET 

MOV 

MOVB 



.SBTTL 



DRIVE, ITACS 
#REWINDJGO,@TACS 

WAITREADY 

END OF PASS ROUTINE 



jSELECT DRIVE 



j*INCREMENT THE PASS NUMBER (SPASS) 



y #«•«■■» ■»##•»#«•## 
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1416 
1417 
1418 
1419 

1420 
1421 
1422 
1423 
1424 
142S 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 



005740 
005740 
005742 
005746 
005752 
005756 
00S764 
00S766 
00S770 
005772 
005774 
005776 
006000 
006004 
006010 
006012 
006014 
006016 
006020 
006022 
006024 
006024 
006026 
006030 
006033 
006040 



004710 

000240 
000140 

000240 

000137 

002204 

377 

0S0040 



I&TYPE "END PASS" 

S®IF THERES A MONITOR GO TO IT 

jaXF THERE ISN'T JUMP TO START 

»#IF IT IS DESIRED TO HAVE A BELL INDICATE THE 

j*$ENDMG CAN BE CHANGED TO 7, 



'END OF PASS* LOCATION 



$4 

005067 
005067 
005267 
042767 
005327 
000001 
003015 
012737 
000001 
005766 
104401 
013700 
001405 



173134 
173214 
173122 

100000 



006033 
000042 



37? 

042412 
05150! 



000 
042116 

000123 



gEQPs 

SCOPE 

CLR 

CLR 

INC 

BIC 

DEC 

IEOPCT8 B WORD 
BGT 
MOV 

§ENDCTs .WORD 
SEOPCT 
TYPE 

SGET42S MOV 
BEQ 
RESET 

SENDADii JSR 
NOP 
NOP 
NOP 

SDOAGNs 

JMP 

SRTNADj e W0RD 

SENULL: 8 BYTE 

SENDMGs .ASCIZ 



STSTNM 

STIMES 

gPASS 

#100000*$PASS 

CPC5* 

1 

SDOAGN 

(PC)+»i(PC)+ 

1 

,§ENDMG 
®S42,R0 
gDOAGN 

PC,(R0) 



e(pc>+ 

START 
-1,-1,0 

<15»<12>/END PASS/ 



lEERO THE TEST NUMBER 

fXERO THE NUMBER OF ITERATIONS 

I INCREMENT THE PASS NUMBER 

JDON'T ALLOW A NEG„ NUMBER 

SLOOP? 

?¥ES 

I RESTORE COUNTER 



I TYPE "END PASS" 
jGET MONITOR ADDRESS 
IBRANCH IF NO MONITOR 
iCLEAR THE WORLD 
jGO TO MONITOR 
jSAVE ROOM 
jFOR 
jACTll 



j RETURN 



INULL CHARACTER STRING 
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1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
i486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 



006046 
006046 

006050 
006056 



006062 
006066 
006074 
006100 
006104 
006106 
006110 
006114 
006116 
006116 
006124 
006126 
006134 
006136 
006142 
006144 
006152 
006154 
006162 
006164 
006172 
006174 
006200 
006204 
006206 
006214 
006216 
006222 
006224 
006230 
006236 
006240 
006246 
906254 
006260 



104406 
032777 
001111 



006060 000416 



013746 
012737 
005737 
012637 
000463 
022626 
012637 
000423 

032777 
001404 
127767 
001462 
105767 
001421 
126767 
101015 
032777 
001404 
016767 
000443 
105067 
005067 
000415 
032777 
001011 
005767 
001406 
005267 
026767 
002021 
012767 
016767 
105267 
011667 



040000 173062 



000004 
006106 
177060 

000004 



000004 

000400 

173006 

172741 

172745 

001000 

172720 

172703 
172762 

004000 

172656 

172654 

172732 



173014 
172746 

172731 
172756 
172714 



.SBTTL SCOPE HANDLER ROUTINE 

• $########«#####«##########*###&#########&#*###### 

f*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS, IT WILL INCREMENT 

?*AND LOAD THE TEST NUMBER ( STSTNM) INTO THE DISPLAY REG. (DISPLAY<7 ; 0> ) 

j#AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15 S08> 

j#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE! 

;#SW14sl LOOP ON TEST 

j*SWllsl INHIBIT ITERATIONS 

?*SW09=1 LOOP ON ERROR 

j*SW08=l LOOP ON TEST IN SWR<7:0> 

?#CALL 

;» SCOPE fjSCOPEsIOT 



J 



SSCOPES 

CKSWR 

i S 2 BIT #BIT14,iiSWR 

BNE SOVER 

;###«#START OF CODE FOR THE XOR 

SXTSTRS BR 6$ 



S$! 



172724 38: 



000044 
172622 
172622 



172636 
172712 



MOV 

MOV 

TST 

MOV 

BR 

CMP 

MOV 

BR 

6$Sf ««#END 
BIT 
BEQ 
CMPB 
BEQ 

2S1 TSTB 
BEQ 
CMPB 
BHI 
BIT 
BEQ 

7SX MOV 
BR 

4$: CLRB 
CLR 
BR 
BIT 
BNE 
TST 
BEQ 
INC 
CMP 
BGE 
MOV 
MOV 

SSVLAD: INCB 
MOV 



is: 



®#ERRVEC,-CSP) 

85$,lf»ERRVEC 

i#177060 

<SP)*,@8ERRV£C 

SSVLAD 

(SP)+,(SP)+ 

{SP5*,@#ERRVEC 
78 
OF CODE FOR THE XOF 
#BIT0B,!?SWR 
2S 

@SWR, STSTNM 
SOVER 
SERFLG 
3$ 

$ERMAX, SERFLG 
3$ 

#BIT09,@SWR 
4§ 

$LPERR,$LPADR 
SOVER 
SERFLG 
$TIMES 
IS 

#BITli,PSWR 
IS 

$PASS 
IS 

SICNT 

$TIMES,SICNT 
SOVER 
#1, SICNT 
$MXCNT,$TIMES 
$TSTNM 
CSP),SLPADR 



jTEST FOR CHANGE IN SOFT»SWR 
fLOOP ON PRESENT TEST? 
jXES IF SWUsl 
TESTEP##### 
jIF RUNNING ON THE "XOR" TESTER CHANGE 
?THIS INSTRUCTION TO A -NOP" (NOP=240) 
fSAVE THE CONTENTS OF THE ERROR VECTOR 
?SET FOR TIMEOUT 
?TIME OUT ON XOR? 
jRESTORE THE ERROR VECTOR 
JGO TO THE NEXT TEST 
jCLEAR THE STACK AFTER A TIME OUT 
J RESTORE THE ERROR VECTOR 
jLOOP ON THE PRESENT TEST 
TESTER#«## 
fLOOP ON SPEC. TEST? 
?BR IF NO 

jON THE RIGHT TEST? SWR<7?0» 
?BR IF YES 

fHAS AN ERROR OCCURRED? 
?BR IF NO 

?MAX 8 ERRORS FOR THIS TEST OCCURRED? 
IBR IF NO 
fLOOP ON ERROR? 
jBR IF NO 
?SET LOOP ADDRESS TO LAST SCOPE 

jEERO THE ERROR FLAG 

JCLEAR THE NUMBER OF ITERATIONS TO MAKE 
JESCAPE TO THE NEXT TEST 
fINHIBIT ITERATIONS? 
jBP IF YES 

; IF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
? INCREMENT ITERATION COUNT 
tCHECK THE NUMBER OF ITERATIONS MADE 
?BR IF MORE ITERATION REQUIRED 
fREINITIALIZE THE ITERATION COUNTER 
fSET NUMBER OF ITERATIONS TO DO 
fCOUNT TEST NUMBERS 
jSAVE SCOPE LOOP ADDRESS 
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1504 
1505 
1506 
1507 
1508 
1509 
1510 



006264 
006270 
006274 
006302 
006310 
006314 
006316 



011667 
005067 
112767 
016777 
016716 



172620 
172674 
000001 
172574 
172572 



172613 
172632 



003720 



MOV 
CLR 
MOVE 

S0VER8 MOV 
MOV 
RTI 

$MXCNT| 2000 e 
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(SP),$LPERR nSAVE ERROR LOOP ADDRESS 

SESCAPE jjCLEAR THE ESCAPE FROM ERROR ADDRESS 

#1,SERMAX nONLY ALLOW 0NE(1) ERROR ON NEXT TEST 

STSTNM,giDISPLAY nDISPLAY TEST NUMBER 

gLPADR,(SP) nFUDGE RETURN ADDRESS 

fjFIXES PS 

jjMAX, NUMBER OF ITERATIONS 
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1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 



006320 
006320 
006322 
006326 
006332 
006336 
006342 
006346 
006350 
006356 
006364 
006366 
006372 
006376 
006402 
006410 
006416 
006424 
006426 
006432 
006436 
006436 
006442 
006444 
006446 
006450 
006456 
006460 
006464 
006470 
006472 
006476 
006476 
006504 
006506 
006510 
006510 



104406 
011437 
011537 
010037 
010137 
105267 
001775 
016777 
032777 
001402 
104401 
005267 
011667 
162767 
117767 
032777 
001004 
004767 
104401 

005777 
100002 



001162 
001164 
001124 
001126 
172535 

172526 
002000 

001172 
172514 
172514 
000002 
172502 
020000 



172564 
172554 



172506 
172476 
172514 



104406 
032777 
001402 
016716 
005767 
001402 
016716 



022737 006014 
001001 



001177 

172476 



172424 
172500 



.SBTTL ERROR HANDLER ROUTINE 

*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 

#SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

#AND GO TO TYPERR ON ERROR 

#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE AREs 

*SWl5sl HALT ON ERROR 

#SW13=1 INHIBIT ERROR TYPEOUTS 

#SW10=1 BELL ON ERROR 

*SW09=1 LOOP ON ERROR 

*CALL 

# ERROR N ;|ERROR=EMT AND N=ERROR ITEM NUMBER 



SERROR! 



20SS 
2SS 



172462 3SS 



CKSWR 

MOV 

MOV 

MOV 

MOV 

INCB 

BEG 

MOV 

BIT 

BEQ 

TYPE 

INC 

MOV 

SUB 

MOVB 

BIT 

BNE 

JSR 

TYPE 

TST 

BPL 

HALT 

CKSWR 

BIT 

BEQ 

MOV 

TST 

BEQ 

MOV 

CMP 
BNE 
HALT 



STAGS, 08SREG0 

£TADB,g8$REGl 

R0,3#$GDDAT 

R1,9#SBDDAT 

SERFLG 

7$ 

$TSTNM,0DISPLAY 

#8IT10,?SWR 

IS 

,$BELL 

SERTTL 

(SP), 8ERRPC 

#2,$ERRPC 

9SERRPCSITEMB 

#BIT13,?SWR 

20$ 

PC, TYPERR 

,SCRLF 

ISWR 
3$ 



#BIT09,§SWR 

4$ 

§LPERR,(SP) 

SESCAPE 

5$ 

SESCAPE, (SP) 

f$ENDAD,g*42 
63 



jTEST FOR CHANGE IN SOFT»SWR 
SAVE THE STATUS REG* 
SAVE THE DATA BUFFER 
R0 WILL CONTAIN THE GOOD DATA 
Rl WILL CONTAIN THE BAD DATA 

j SET THE ERROR FLAG 

;DON'T LET THE FLAG GO TO EERO 

fDISPLAY TEST NUMBER AND ERROR FLAG 

yBELL ON ERROR? 

jNO - SKIP 

?RING BELL 

jCOUNT THE NUMBER OF ERRORS 

SGET ADDRESS OF ERROR INSTRUCTION 

fSTRIP AND SAVE THE ERROR ITEM CODE 

ISKIP TYPEOUT IF SET 

jSKIP TYPEOUTS 

jGO TO USER ERROR ROUTINE 



% % HALT ON ERROR 

jfSKIP IF CONTINUE 

fjHALT ON ERROR! 

jfTEST FOR CHANGE IN SOFT^SWR 

jjLOOP ON ERROR SWITCH SET? 

;}BR IF NO 

jjFUDGE RETURN FOR LOOPING 

nCHECK FOR AN ESCAPE ADDRESS 

j|BR IF NONE 

j J FUDGE RETURN ADDRESS FOR ESCAPE 

j;ACT~li AUTO»ACCEPT? 
; f BRANCH IF NO 
j j YES 
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1563 








1564 








1565 








1566 


006512 


104401 


001177 


1567 


006516 


010046 




1568 


006520 


113700 


001114 


1569 


006524 


005300 




1570 


006526 


006300 




1571 


006530 


006300 




1572 


006532 


006300 




1573 


006534 


062700 


001236 


1574 


006540 


012067 


000002 


1575 


006544 


104401 




1576 


006546 


000000 




1577 


006550 


104401 


001177 


1578 


006554 


012067 


000004 


1579 


006560 


001404 




1580 


006562 


104401 




1581 


006564 


000000 




1582 


006566 


104401 


001177 


1583 


006572 


012000 




1584 


006574 


001004 




1585 


006576 


012600 




1586 


006600 


104401 


001177 


1587 


006604 


000207 




1588 


006606 






1589 


006606 


013046 




1590 








1591 


006610 


104402 




1592 


006612 


005710 




1593 


006614 


001770 




1594 


006616 


104401 


006624 


1595 


006622 


000771 




1596 


006624 


020040 


000 


1597 




006630 





jTHIS ROUTINE WILL TYPEOUT THE ERROR MESSAGES 



TYPE 

MOV 

MOVB 

DEC 

ASL 

ASL 

ASL 

ADD 

MOV 

TYPE 



TYPE 

MOV 

BEQ 

TYPE 



TYPE 

MOV 

BNE 

MOV 

TYPE 

RTS 

MOV 

TYPOC 

TST 

BEQ 

TYPE 

BR 

.ASCIZ 

.EVEN 



,$CRLF 

R0,»(SP) 

£#$ITEMB,R0 

R0 

R0 

R0 

R0 

#$ERRTB,R0 

CR0)+,1S 



,$CRLF 

(R0)+,2$ 

3$ 



,$CRLF 

(R0)+,R0 

5$ 

(SP)+,R0 

,$CPLF 

PC 

0CR0)+,»CSP) 



jTYPE A CARRIAGE RETURN & LINE FEED 

j SAVE R0 

yPICKUP THE ITEM INDEX 

,'ADJUST THE INDEX 

;SO IT WILL WORK FOR 

;THE ERROR TABLE 

yFORM THE TABLE POINTER 

?PICKUP "ERROR MESSAGE" POINTER 

;TYPE "ERROR MESSAGE" 

J "ERROR MESSAGE POINTER® GOES HERE 

,'PICKUP "DATA HEADER" POINTER 

;IF "0" DON'T TYPE 

j TYPE "DATA HEADER 

;"DATA HEADER" POINTER GOES HERE 

JPICKUP "DATA POINTER" 

;IF THERE IS DATA TO TYPE GO DO IT 

; RESTORE R0 

;TYPE A CARRAGE RETURN&LINE FEED 

jRETURN 

;?SAVE §(R0)+ FOR TYPEOUT 

;;TYPE DATA 

;jGO TYPE~»OCTAL ASCIICALL DIGITS) 

jTERMINATOR? 

?BR IF YES 

jTYPE 2 SPACES 

;LOOP 

fASCII STRING OF 2 SPACES 



TAU MANUAL INTERVENTION TEST MAINDFC-1 1 -DZTAC-C 



DZTACC 9 NEW 



1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 



ROUTINE TO WAIT ON THE READY BIT TO SET 
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006630 
006630 
006634 
006642 
006646 
006654 
006660 
006664 
006666 
006670 
006672 
006674 
006676 
006700 
006702 
006704 
006706 
006710 
006712 
006714 
006720 
006724 
006730 
006732 



006734 
006734 
006740 
006746 
006752 
006760 
006764 
006766 
006770 
006774 
006776 



007002 
007004 
007006 
007010 
007012 
007014 
007016 
007020 
007024 
007030 
007034 



001366 
005327 



003363 
104002 
013746 
013746 
062716 



005067 
013767 
012637 
162737 
012637 
105714 
100414 
032714 
001402 
104004 
000407 
005227 



001366 
005327 



003363 
104003 
013746 
013746 
062716 
000002 



JROUTINE TO WAIT ON THE READY BIT 



005067 
016767 
012637 
162737 
012637 
032714 
001013 
105714 



000044 
000072 
001202 
000002 
001204 
000040 



104004 



WAIT 9 0N„READYJ 
CLR 
MOV 
MOV 
SUB 
MOV 

WAITU BIT 
BNE 
TSTB 
BPL 
ERROR 



WAIT45 
WAIT2S 



BR 
INC 



BNE 
DEC 



HGHTIMj 



001204 
001202 
000002 



000044 
006732 
001202 
000002 
001204 



BGT 

ERROR 

MOV 

MOV 

ADD 

RTI 



WAIT2 

MAXCNT,HGHTIM 

(SP)+,®#SAVPC 

#2,9#SAVPC 

(SPHfMSAVPS 

#READY, 9TACS 

WAIT3 

STAGS 

WAIT4 

4 

WAIT3 

(PC)* 

WAIT1 
(PO + 

WAIT1 

2 

£#SAVPS*»(SP) 

P#SAVPC,»(SP) 

#2, (SP) 



##«•###«##»##### «•####■ «.■!«•■» #■#■»•«■«•# 



;SETUP MAX, TIME TO WAIT ON "READY" 

;GET THE PC OF THE WAITREADY INSTRUCTION 

;SAVE THE PS 

;READY=1? 

;GO ON IF YES 

jCHECK TRANSFER REQUEST 

J"TRANSFER REQUEST" SET WHILE WAITING ON "READY" 

;COUNT FAST COUNTER 

jGO CHECK "READY" AGAIN 
fCOUNT LOOP COUNTER 

;GO LOOP AGAIN 

; B READY" FAILED TO SET 

;GET THE STATUS BACK 

;GET THE PC 



MAXCNTs 



^ROUTINE TO WAIT ON TRANSFER REQUEST 



WAIT, FOR. XFER.REQ: 



5S! 

2$: 



CLR 


2S 


MOV 


08MAXCNT,3$ 


MOV 


CSP) + ,|I#SAVPC 


SUB 


#2,3#SAVPC 


MOV 


(8P)*,@#SAVPS 


TSTB 


@TACS 


BMI 


4$ 


BIT 


#READY,§TACS 


BEQ 


5$ 


ERROR 


4 


BR 


4S 


INC 


(PC) + 







BNE 


IS 


DEC 


(PO + 



001204 
001202 

000002 



BGT IS 

ERROR 3 

MOV ?8SAVPS,»(SP) 

MOV ?#SAVPC»»CSP) 

ADD #2,(SP) 

RTI 



######■»#■&#•»#&*■»####«■####*■### 



JSETUP WASTE TIME LOOP 

;GET THE PC OF THE WAITXFER INSTRUCTION 

;SAVE THE PS 

jCHECK XFER REQ 

;EXIT IF SET 

,'LOOK AT READY 

;BR IF "READY" ISN'T SET 

;"READY K SET WHILE WAITING FOR "XFER REQ" 

,'COUNT 

jBR IF MORE TO DO 



j "TRANSFER REQUEST" FAILED TO SET 
,'GET THE STATUS BACK 
jGET THE PC 



;GO BACK 
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1652 
1653 








1654 








1655 








1656 








1657 








1658 








1659 








1660 


007036 


104401 


012552 


1661 


007042 


005067 


172156 


1662 


007046 


104410 




1663 


007050 


012600 




1664 


007052 


105710 




1665 


007054 


001425 




1666 


007056 


012701 


001224 


1667 


007062 


122710 


000101 


1668 


007066 


001002 




1669 


007070 


112021 




1670 


007072 


000411 




1671 


007074 


122710 


000102 


1672 


007100 


001002 




1673 


007102 


112021 




1674 


007104 


000404 




1675 


007106 


122710 


000054 


1676 


007112 


001006 




1677 


007114 


105720 




1678 


007116 


105710 




1679 


007120 


001406 




1680 


007122 


022701 


001226 


1681 


007126 


101355 




1682 


007130 


104401 


001176 


1683 


007134 


000740 




1684 


007136 


005767 


172062 


1685 


007142 


001772 




1686 


007144 


000207 




1687 









.SBTTL ROUTINE TO ASK 

JCALL 



* 


JSR 


PC,g#ASKDRV 


' 


RETURN 




ASKDRV; 


TYPE 


,MSGDRV 




CLR 


DRVKEY 




RDLIN 






MOV 


(SP)+,R0 




TSTB 


@R0 




BEQ 


NOTLGL 




MOV 


#DRVKEY,Ri 


LOOPS 


CMPB 


#'Ar8R0 




BNE 


NOTA 




MOVB 


(R0)+,CR1)+ 




BR 


NEXT 


NOTAs 


CMPB 


#'B,@R0 




BNE 


NOTB 




MOVB 


(R0)+,(R1)+ 




BR 


NEXT 


NOTBs 


CMPB 


#54,gR0 




BNE 


NOTLGL 




TSTB 


CR0) + 


NEXTS 


TSTB 


0R0 




BEQ 


EXIT 




CMP 


&DRVKEY+2,R 




BHI 


LOOP 


NOTLGLj 


TYPE 


,$QUES 




BR 


ASKDRV 


EXIT! 


TST 


DRVKEY 




BEQ 


NOTLGL 




PTS 


PC 



THE OPERATOR WHAT DRIVE(S) TO TEST 



;NOTE: R0 AND Rl ARE DESTROYED 

j<CRLF>"DRIVE(S)? H 

;GO GET A DRIVE 

jSETUP TO CHECK FOR VALID DRIVE(S) 

;WAS A DRIVE SELECTED? 

;BR IF NO 

jWAS DRIVE "A" SELECTED? 

;BR IF NO 

;SET KEY FOR DRIVE "A" 

;WAS DRIVE "B" SELECTED? 

;BR IF NO 

;SET KEY FOR DRIVE "B" 

;WAS A COMMA TYPED? 

;BR IF NO 

;DUMP THE COMMA 

^TERMINATOR? 

jBR IF YES 

;TWO DRIVES SELECTED? 

;BR IF NO 

; ILLEGAL INPUT DETECTED 

jGO TRY AGAIN 

,-ANY DRIVE SELECTED? 

;BR IF NO 
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1688 








j ?#*•##■»#■&#•»#■&# 


&#&&■»&##■»*###*### 


1689 








jCALL 




1690 








?JSR PC,ggASKADR 


1691 












1692 


007146 


010046 




ASKADRS MOV 


R0,»(SP) 


1693 


007150 


104401 


012566 


1$S TYPE 


,MSGASK 


1694 


007154 


104411 




RDOCT 




1695 


007156 


012600 




MOV 


(SP)+,R0 


1696 


007160 


001423 




BEQ 


3$ 


1697 


007162 


020027 


160000 


CMP 


R0, #160000 


1698 


007166 


103770 




BLO 


1$ 


1699 


007170 


010037 


001206 


MOV 


R0,£#TACSL 


1700 


007174 


062700 


000002 


ADD 


#2,R0 


1701 


007200 


010037 


001212 


MOV 


R0,?#TADBL 


1702 


007204 


013737 


001206 001210 MOV 


9#TACSL,08TACSH 


1703 


007212 


005237 


001210 


INC 


g#TACSH 


1704 












1705 


007216 


013737 


001212 001214 MOV 


£8TADBL,P#TADBH 


1706 


007224 


005237 


001214 


INC 


##TADBH 


1707 


007230 


104401 


012576 


3SS TYPE 


,MSGVEC 


1708 


007234 


104411 




RDOCT 




1709 


007236 


012600 




MOV 


(SP)+,R0 


1710 


007240 


001411 




BEQ 


5$ 


1711 


007242 


020027 


001000 


CMP 


R0,#1000 


1712 


007246 


103370 




BHIS 


3$ 


1713 


007250 


010037 


001216 


MOV 


R0,@#TAVEC 


1714 


007254 


062700 


000002 


ADD 


#2,R0 


1715 


007260 


010037 


001220 


MOV 


R0,P#TAVEC+2 


1716 


007264 


104401 


012606 


5$S TYPE 


,MSGPRI 


1717 


007270 


S04411 




RDOCT 




1718 


007272 


012600 




MOV 


(SP)+,R0 


1719 


007274 


001413 




BEQ 


6$ 


1720 


007276 


020027 


000007 


CMP 


R0,87 


1721 


007302 


S01370 




BHI 


5$ 


1722 


007304 


000300 




SWAB 


R0 


1723 


007306 


006200 




ASR 


R0 


1724 


007310 


006200 




ASR 


R0 


1725 


007312 


006200 




ASR 


R0 


1726 


007314 


042700 


177437 


BIC 


#~C<340>,R0 


1727 


007320 


010037 


001222 


MOV 


R0,3#TAPRIO 


1728 


007324 


104401 


012620 


6$J TYPE 


*MTACS 


1729 


007330 


016746 


171652 


MOV 


TACSL»»(SP) 


1730 


007334 


104402 




TYPOC 




1731 


007336 


104401 


012626 


TYPE 


,MTADB 


1732 


007342 


016746 


171644 


MOV 


TADBL,-(SP) 


1733 


007346 


104402 




TYPOC 




1734 


007350 


104401 


012635 


TYPE 


,MTAVEC 


1735 


007354 


016746 


171636 


MOV 


TAVEC-CSP) 


1736 


007360 


104402 




TYPOC 




1737 


007362 


104401 


012646 


TYPE 


,MTAPRI 


1738 


007366 


016746 


171630 


MOV 


TAPPI0,»(SP) 


1739 


007372 


104402 




TYPOC 




1740 


007374 


104401 


012661 


TYPE 


,MSGOK 


1741 


007400 


104407 




RDCHR 




1742 


007402 


012600 




MOV 


(SP)+,R0 


1743 


007404 


022700 


000015 


CMP 


U5, R0 



#■»##«• •»#»»■» 



!•##*•»•»####■&■»#«.#■&*# 



;SAVE R0 

; W TACS? H 

;GET VALUE 

jPICK UP THE OCTAL NUMBER 

•IF «0* USE 0LD VALUES 

;MAKE SURE IT IS A BUS ADDRESS 

;SAVE TOE TAGS 

;STEP TO TADB ADDRESS 

;AND SAVE IT 

;SET UP TACS UPPER 

jBYTE POINTER 

,'SET UP TADB UPPER 
;BYTE POINTER 
; "VECTOR?" 



;MAKE SURE ADDRESS IS IN VECTOR AREA 
;SAVE AS VECTOR ADDRESS 



;ASK FOR PRIORITY 



;IF "0" USE OLD VALUE 
;MAKE SURE ITS VALID 

;PUT INTO HIGH BYTE 

;AND SHIFT 

jINTO PROPER 

^POSITION 

;SAVE ONLY PRIORITY BITS 

?STORE IT AWAY 

•TACSs" 
fSAVE TACSL FOR TYPEOUT 
jGO TYPE«*-OCTAL ASCIICALL DIGITS) 

j^TADBs" 
,'SAVE TADBL FOR TYPEOUT 
jGO TYPE»»OCTAL ASCIICALL DIGITS) 

^VECTORS* 
;SAVE TAVEC FOR TYPEOUT 
JGO TYPE—OCTAL ASCIICALL DIGITS) 

;"PRIORITY=" 
?SAVE TAPRIO FOR TYPEOUT 
jGO TYPE—OCTAL ASCIICALL DIGITS) 

;»OK?» 

jGO READ ONE CHARACTER 

*GET IT 

?IS IT H CR"? 
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1744 0074 


10 


001406 


1745 0074 


12 


022700 


1746 0074 


16 


001403 


1747 0074 


20 


104401 


1748 0074 


24 


000651 


1749 0074 


26 


104401 


1750 0074 


32 


012600 


175! 0074 


34 


000207 



BEG 


78 


CMP 


#'¥,R0 


BEQ 


78 


TYPE 


,SQUES 


BR 


IS 


TYPE 


,M¥£S 


MOV 


(SP)+,R0 


RTS 


PC 
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fBRANCH IF YES 

flB IT «Y B ? 

I IT WAS 

fTYPE w ? 8 ' 

?AND LET HIM CORRECT THEM 

?TYPE OUT M YES B 

f RESTORE R0 

?AND RETURN 



1 
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• • ##&■»■ #-&*#■» «•###■» #«•##« 

^ROUTINE TO TYPE DIRECTIONS TO OPERATOR AND WAIT FOR RESPONSE 

jCALLs 

; JSR R0,P8ASKQUES 

% RETURN HERE ON A RESPONSE OF "Y" 

; RETURN HERE ON A RESPONSE OF "N" 



007436 






ASKQUESI 








007436 


010146 






MOV 


R1,-(5P) 




?SAVE Rl 


007440 


012067 


000006 




MOV 


(R0)+,2S 




;PICKUP THE MESSAGE POINTER 


007444 


104401 


001177 




TYPE 


, SCRLF 




;TYPE A "CR" AND "LF" 


00745k) 


104401 




1$; 


TYPE 






;TYPE THE MESSAGE 


007452 


000000 




2SS 









^MESSAGE POINTER GOES HERE 


007454 


104407 






RDCHR 






;GET ONE CHARACTER FROM THE TTY 


007456 


012601 






MOV 


(SP)+,R1 




jAND PUT IT IN Rl 


007460 


020127 


000015 




CMP 


Rlr#15 




yCHECK THIS CHARACTER 


007464 


001443 






BEQ 


4$ 




;BR IF ITS A "CR" 


007466 


020127 


000116 




CMP 


R1,*'N 




jIS IT A "N"? 


007472 


001415 






BEQ 


3$ 




;BR IF YES 


007474 


020127 


000131 




CMP 


Rl, *'Y 




jlS IT A "Y« 


007500 


001007 






BNE 


5$ 




;BR IF NOT "¥" 


007502 


104401 


007510 




TYPE 


,65$ 


; j TYPE 


ASCIZ STRING 


007506 


000403 




;;65SI 


BR 
e ASCIE 


64S 

/ YES/ 


; jGET 


OVER THE ASCIE 


007516 






648 t 










007516 


000426 






BR 


4$ 




yGO TO EXIT 


007520 


104401 


001176 


SSI 


TYPE 


,$QUES 




jUNKNOWN REQUEST 


007524 


000751 






BR 


IS 




jGO ASK AGAIN 


007526 






3SI 










007526 


104401 


007534 




TYPE 


,67$ 


??TYPE 


ASCIZ STRING 


007532 


000415 






BR 


66$ 


j J GET 


OVER THE ASCIZ 








?|67S! 


B ASCIZ 


* NO™ SKIPPING 


THIS TEST* 


007566 






66SJ 










007566 


005720 






TST 


(R0) + 




fSTEP OVER "CR" RETURN 


007570 


005037 


001166 




CLR 


f#STIMES 




jCLEAR ITERATIONS 


007574 


104401 


001177 


4SS 


TYPE 


, SCRLF 






007600 


012601 






MOV 


CSP)+#R1 




IRESTORE Rl 


007602 


000200 






RTS 


R0 




jRETURN 



J 



) 
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DZTACC.NEW ##»«##### MANUAL ADJUSTMENT ROUTINES *#■»*#*###* 



1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 



007604 
007610 
007614 
007620 
007622 
007630 
007634 
007636 
007642 
007646 
007650 
007654 
007656 
007662 
007664 
007666 



007670 
007674 
007700 
007704 
007710 
007712 
007720 
007724 
007726 
007732 
007736 



012706 001100 

013704 001206 

013705 001212 



007604 
010610 



012737 
004737 
010314 
112714 
032714 
001775 
112714 
104412 
032714 
001772 



000746 



004737 010352 

012706 001100 

013704 001206 

013705 001212 



j ////////////////////////////////////////////////////////////////////// 
J ////////////////////////////////////////////////////////////////////// 

?THE FOLLOWING ROUTINES CAN BE USED TO MAKE ADJUSTMENTS TO THE TU60 
yNOTE? ### BEFORE USING ANY OF THE ROUTINES LOAD AND START AT 214 ### 



j WRITE FILE GAPS FROM "BOT" TO "EOT" 
ySTART AT 220 

jTHIS ROUTINE CAN BE USED TO ADJUST THE "WRITE GAP MONO" AND 
jTHE "WRITE DELAY MONO*. 
; }##•»#*##»#»*■»#•»*■»«■«*##»###*# *#*####*#»#*«######«.##**##*«.»#*###®* 

jKEEp THE STACK OUT OF THE WAY 
; SETUP THE TAH STATUS AND 
jDATA BUFFER REGISTERS 
j RESET THE WORLD 

; SETUP THE LOOP ON ERROR ADDRESS 
jGO SETUP FOR NEXT DRIVE 
jSELECT DRIVE 
fSEND TAPE TO "BOT" 
jWAIT ON READY 

jWRITE A FILE GAP 
?WAIT ON READY 
?AT "CLEAR LEADER 81 ? 
fBR IF NO 
JSTOP IF YES 
fLOOP ON CONT s 

WRITE CONTINUOUS BLOCKS OF DATA 

?START AT 224 

j THE PROGRAM WILL HALT THREEC3) TIMES 

jAFTER EACH HALT SET THE SWR AND PRESS CONTINUE 

;HALT 1 -« SWR<7|0> ■ NUMBER OF BYTES PER BLOCK 

;HALT 2 -« SWR<7S0> s PATTERN DESIRED 

fHALT 3 — SWR<15s0> = OPERATIONAL SWITCH SETTINGS 

jTHIS ROUTINE CAN BE USED TO ADJUST THE "GAP TIME MONO" 

$** IF USING SOFTWARE SWITCH REGISTER, AFTER 

I EACH HALT OPERATOR WILL BE PROMPTED 

I FOR THE VALUE WITH "SWRsXXXXXX NEWs" 



WFGSUBs 


MOV 


#STACK,SP 




MOV 


?8TACSL,TACS 




MOV 


$#TADBL,TADB 




RESET 






MOV 


#WFGSUB#$8$LPERR 




JSR 


PC,3#NXTDRV 




MOV 


DRIVE, gTACS 




MOVB 


#REWINDiGO,gTACS 


100SS 


BIT 


#READY,PTACS 




BEG 


100S 


is: 


MOVB 


gWFG$GQ,§TACS 




WAITREADY 




BIT 


^LEADER, @TACS 




BEQ 


IS 




HALT 






BR 


WFGSUB 



012737 007674 

004737 010610 

010314 

112714 000017 

032714 000040 

001775 



WRTSUB8 JSR 

WLOOPS MOV 

MOV 

MOV 

RESET 

31110 MOV 

JSR 

MOV 

MOVB 

1008? BIT 

BEQ 



PC,g#SETBUF 
8STACK,SP 
3#TACSL,TACS 
@#TADBL,TADB 

#WLOOP##H$LPERR 

PC,3#NXTDRV 

DRIVE, @TACS 

#REWIND!GQ,PTACS 

#READY,@TACS 

100$ 



;GET BLOCK SIZE AND PATTERN 

jKEEP THE STACK OUT OF THE WAY 

jSETUP THE TA11 STATUS AND 

jDATA BUFFER REGISTERS 

;RESET THE WORLD 

;SETUP THE LOOP ON ERROR ADDRESS 

jGO SETUP FOR NEXT DRIVE 

;SELECT DRIVE 

ySEND TAPE TO "BOT" 

jWAIT ON READY 



TA11 MANUAL INTERVENTION TEST HAINDEC-11-DZTAC 
DZTACC.NEW WRITE CONTINUOUS BLOCKS OF DATA 



1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
I860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1896 
18S7 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 



007740 
007744 
007750 
007752 
007754 



007756 
007762 
007766 
007772 
007774 
010002 
010006 
010010 
010014 
010020 
010022 
010026 
010032 
010034 



004737 
032714 
001773 
000000 
000747 



010466 
020000 



012706 
013704 
013705 
000005 
012737 



004737 010610 

010314 

112714 000017 

032714 

001775 

004737 

032714 

001351 

000772 



010530 
020000 



010036 
010042 
010046 
010052 
010056 
010060 
010066 
010072 
010074 
010100 
010104 
010106 
010112 



-c 
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OF DATA 






JSR 


PC,0#WRTBLK 


WRITE A BLOCK 


BIT 


PLEADER, 3TACS 


AT "CLEAR LEADER"? 


BEG 


1$ 


BR IF NO 


HALT 




STOP IF "EOT" 


BR 


WLOOP 


LOOP IF CONT 8 



001100 
001206 
001212 

007756 001110 



; READ CONTINUOUS BLOCKS OF 

jSTAPT AT 230 
jTHIS ROUTINE CAN BE USED 
;AND THE "THRESHOLD POT", 

• j ###•»#•&«■#«•■»#«■#■»#####«•&■» *«#»##< 

RDSUB: 



DATA 



!•#####«###■####■» 



004737 010352 
012706 001100 

013704 001206 

013705 001212 
000005 
012737 
004737 
010314 
112714 
032714 
001775 
112714 
104412 



TO ADJUST THE "SIGNAL MONO" 

KEEP THE STACK OUT OF THE WAY 

SETUP THE TA11 STATUS AND 

DATA BUFFER REGISTERS 

RESET THE WORLD 

SETUP THE LOOP ON ERROR ADDRESS 

GO SETUP FOR NEXT DRIVE 

SELECT DRIVE 

SEND TAPE TO "BOT" 

WAIT ON READY 

READ A BLOCK 

AT "CLEAR LEADER"? 

BR IF YES---LOOP 



WRITE A FILE GAP AND A BLOCK OF DATA FROM BOT TO EOT 

?START AT 234 

jTHE PROGRAM WILL HALT THREEC3) TIMES 

j AFTER EACH HALT SET THE SWR AND PRESS CONTINUE 

fHALT 1 — SWR<7!0> s NUMBER OF BYTES PER BLOCK 

j HALT 2 *"*">» SWR<7!0» a PATTERN DESIRED 

jHALT 3 — • SWR<15!0> b OPERATIONAL SWITCH SETTINGS 

pTHIS ROUTINE CAN BE USED TO ADJUST THE "WRITE GAP MONO" 

»## IF USING SOFTWARE SWITCH REGISTER, AFTER 

? EACH HALT OPERATOR WILL BE PROMPTED 

j FOR THE VALUE WITH "SWRsXXXXXX NEWss" 

?AND THE "GAP TIME MONO". 



MOV 


SSTACK,SP 


MOV 


§8TACSL,TACS 


MOV 


g#TADBL,TADB 


RESET 




MOV 


#RDSUB,?#$LPERR 


JSR 


PC,P#NXTDRV 


MOV 


DRIVE, PTACS 


MOVB 


#REWIND!GO,PTACS 


BIT 


#READY,gTACS 


BEQ 


100S 


JSR 


PC,fa#RDBLK 


BIT 


#LEADER,@TACS 


BNE 


RDSUB 


BR 


1$ 



010042 
010610 



WGPBLKs JSR 

WGBLOPs MOV 
MOV 
MOV 
RESET 
MOV 
JSR 
MOV 
MOVB 

100SS BIT 
BEQ 

18 t MOVB 



PC#*#SETBUF 
#STACK,SP 
§#TACSL,TACS 
S#TADBL,TADB 

#WGBLOP,g#SLPERR 

PCMNXTDRV 

DRIVE, giTACS 

#REWINDlGO,@TACS 

#READY,8TACS 

100$ 

#WFGiGO,@TACS 



? GET BLOCK SIZE AND PATTERN 
j KEEP THE STACK OUT OF THE WAY 
jSETUP THE TA11 STATUS AND 
jDATA BUFFER REGISTERS 
jRESET THE WORLD 

j SETUP THE LOOP ON ERROR ADDRESS 
jGO SETUP FOR NEXT DRIVE 
jSELECT DRIVE 
jSEND TAPE TO «BOT" 
?WAIT ON READY 

jWRITE A FILE GAP 
?WAIT ON READY 
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1904 


010114 


032714 


020000 


1905 


010120 


001005 




1906 


010122 


004737 


010466 


1907 


010126 


032714 


020000 


1908 


010132 


001765 




1909 


010134 


000000 




1910 


010136 


000741 




1911 








1912 








1913 








1914 








1915 








1916 








1917 








1918 








1919 








1920 


010140 


012706 


001100 


1921 


010144 


013704 


001206 


1922 


010150 


013705 


001212 


1923 


010154 


000005 




1924 


010156 


012737 


010140 


1925 


010164 


004737 


010610 


1926 


010170 


010314 




1927 


010172 


112714 


000017 


1928 


010176 


032714 


000040 


1929 


010202 


001775 




1930 


010204 


004737 


010530 


1931 


010210 


032714 


020000 


1932 


010214 


001351 




1933 


010216 


112714 


000015 


1934 


010222 


104412 




1935 


010224 


032714 


020000 


1936 


010230 


001343 




1937 


010232 


000764 




1938 








1939 








1940 








1941 








1942 








1943 








1944 








1945 








1946 








1947 








1948 


010234 


012706 


001100 


1949 


010240 


013704 


001206 


1950 


010244 


013705 


001212 


1951 


010250 


000005 




1952 


010252 


012737 


010234 


1953 


010260 


004737 


010610 


1954 


010264 


010314 




1955 


010266 


112714 


000017 


1956 


010272 


032714 


000040 


1957 


010276 


001775 




1958 


010300 


112714 


000013 


1959 


010304 


104412 





BIT 


#LEADER,@TACS 


BNE 


2$ 


JSR 


PC,g#WRTBLK 


BIT 


PLEADER, 3TACS 


BEQ 


1$ 


HALT 




BR 


WGBLOP 



READ A BLOCK OF DATA AND A FILE 
jSTART AT 240 

jTHIS ROUTINE IS USED AFTER "WR 
j IT CAN BE USED TO ADJUST THE 
j AND THE "TAPE BLANK MONO". 

RGPBLKs MOV #STACK,SP 

MOV 9#TACSL,TACS 

MOV $STADBL,TADB 

RESET 

MOV #RGPBLK,§#$LPERR 

JSR PC,9#NXTDRV 

MOV DRIVE, 9TACS 

MOVB #R£WINDiGO, STAGS 

100SS BIT #READY,STACS 

BEQ 100$ 

1$5 JSR PC,?#RDBLK 

BIT #LEADER,3TACS 

BNE RGPBLK 

MOVB 8SFBG»GO,(aiACS 

WAITREADY 

BIT #LEADER,@TACS 

BNE RGPBLK 

BR 1$ 



;AT "CLEAR LEADER"? 

;BR IF YES 

yWRITE A BLOCK 

;AT "CLEAR LEADER"? 

;BR IF NO 

;STOP AT "EOT" 

jSTART OVER ON CONT, 



GAP 

ITE A BLOCK AND A FILE GAP" ROUTINE 
SIGNAL MONO", THE THRESHOLD POT" 

;KEEP THE STACK OUT OF THE WAY 
JSETUP THE TA11 STATUS AND 
;DATA BUFFER REGISTERS 
j RESET THE WORLD 

fSETUP THE LOOP ON ERROR ADDRESS 
;GO SETUP FOR NEXT DRIVE 
;SELECT DRIVE 
jSEND TAPE TO "BOT" 
?WAIT ON READY 

j READ A BLOCK OF DATA 
;AT "CLEAR LEADER"? 
JBR IF YES 
jGET INTO A FILE GAP 



;AT "CLEAR LEADER"? 
;BR IF YES 
j LOOP 



SPACE FORWARD FILE GAP FROM 
; START AT 244 

;THIS ROUTINE CAN BE USED AF' 

;SPACE FOWARD (TAPE BLANK MOI 

jWRITE A FILE GAP AND A BLOC 

; (SIGNAL MONO CAN BE CHECKED 

! MOV 8STACK,SP 

MOV P#TACSL,TACS 

MOV &8TADBL,TADB 
RESET 

MOV #SFFGSB,fa»$LPERR 

JSR PC,g#NXTDRV 

MOV DRIVE, @TACS 

MOVB 8REWINDIG0,9TACS 

BIT #READY, STAGS 

BEO 100$ 

MOVB #SFFG'GO,PTACS 
WAITREADY 



"BOT" TO "EOT" 

TER "WRITE FILE GAP" FOR LOW SPEED 
NO CAN BE ADJUSTED), OR AFTER READ OR 

OF DATA FOR HIGH SPEED SPACE FORWARD 
>. 

KEEP THE STACK OUT OF THE WAY 
SETUP THE TAH STATUS AND 
DATA BUFFER REGISTERS 
RESET THE WORLD 

ySETUP THE LOOP ON ERROR ADDRESS 
GO SETUP FOR NEXT DRIVE 
SELECT DRIVE 
SEND TAPE TO "BOT" 
WAIT ON READY 



SPACE INTO A FILE GAP 
WAIT ON READY 
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1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
201 



012737 
010314 
112714 
104412 
032714 
001772 



000763 



010306 032714 

010312 001772 

010314 000000 

010316 000746 



010320 
010322 
010330 
010332 
010336 
010340 
010344 
010346 
010350 



010352 
010354 
010356 
010364 
010366 
010370 
010370 
010374 
010376 
010402 
010404 
010410 
010412 
010416 
010422 
010424 
010432 
010434 
010436 
010436 
010444 
010446 
010454 
010456 
010460 
010460 
010462 
010464 
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ROM «BOT" TO "EOT" 




BIT PLEADER, 0TACS 


AT "CLEAR LEADER"? 


BEQ 1$ 


BR IF NO 


HALT 


STOP AT "EOT" 


BR SFFGSB 


LOOP ON CONT, 



010320 001110 



; BACK SPACE FILE GAP 
jSTART AT 250 
;THIS ROUTINE CAN BE USED TO ADJUST OR CHECK THE "SIGNAL MONO". 

BSFGSB: RESET jRESET THE WORLD 



022767 
001001 
104405 



022767 
001001 
104405 



022767 
001001 
104405 



MOV #BSFGSB,§#$LPERR 

MOV DRIVE, 3TACS 

MOVB #BSFG!GO,PTACS 

WAITREADY 

BIT #LEADER,PTACS 

BEQ IS 

HALT 

BR BSFGSB 



jLOOP ON ERROR ADDRESS 
jSELECT DRIVE 
jBACK SPACE A FILE GAP 
JWAIT ON READY 
;AT "CLEAR LEADER"? 
;BR IF NO 
•STOP AT BOT 
jSTART OVER ON CONT. 



000176 170554 



SETUP 

SETBUFi CLR 
HALT 
CMP 
BNE 
GTSWR 



#SWREG,SWR 
20$ 



157700 

001006 

105777 

001402 

012700 000376 

005200 

010037 

005037 



170544 
170537 



010462 
010464 



IS; 
2$: 



000176 170506 



170476 
000176 



010464 
170464 



BLKLIMi 
PATTRNs 



BISB 

BNE 

TSTB 

BEQ 

MOV 

INC 

MOV 

CLR 

HALT 

CMP 

BNE 

GTSWR 

MOVB 

HALT 

CMP 

BNE 

GTSWR 

RTS 



BLOCK SIZE AND PATTERN FOR SUBROUTINES 

R0 

OPERATOR PUTS BYTE COUNT IN SWR<7S0> 
USING S/W SWITCH REG? 
NO- GET OUT 
GET VALUE 
CONTINUE 
jPICKUP THE BYTE COUNT 
BR IF NON-ZERO 
CHECK IF GREATER THAN 377 
BR IF NO 

SET FOR MAX ALLOWED 
MAKE IT 377 OR 1 
SETUP THE BLOCK LIMIT 



@SWR 
2$ 

£SWR+| 
1$ 

#376, R 



R0 



R0,@#BLKLIM 

§#PATTRN 



#SWREG,SWR 
21$ 



0SWR,@#PATTRN 



#SWREG,SWR 
22$ 



OPERATOR PUTS PATTERN IN SWR<7l 

USING S/W SWITCH REG? 

NO- GET OUT 

GET VALUE 

CONTINUE 

PICK UP THE PATTERN 

SET OPERATIONAL SWITCHES 

USING S/W SWITCH REG? 

NO- GET OUT 

GET VALUE 

CONTINUE 

RETURN 

READ AND WRITE BLOCK SIZE 

PATTERN TO GO ON THE TAPE 



j }##»#«#####«#»*»##*«#»«##««###*#«#«'*##»*#####«»<*##'»#«•«■«■#«»##«*■»# 
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ETACC, 


NEW 




WRITE 


2016 








2017 








2013 


010466 


013701 


010462 


2019 


010472 


112714 


000003 


2020 


010476 


104413 




2021 


010500 


032714 


000040 


2022 


010504 


001010 




2023 


010506 


005301 




2024 


010510 


002403 




2025 


010512 


113715 


010464 


2026 


010516 


000767 




2027 


010520 


052714 


000020 


2028 


010524 


104412 




2029 


010526 


000207 




2030 








2031 








2032 








2033 








2034 








2035 


010530 


013702 


010462 


2036 


010534 


013700 


010464 


2037 


010540 


112714 


000005 


2038 


010544 


104413 




2039 


010546 


032714 


000040 


2040 


010552 


001012 




2041 


010554 


005302 




2042 


010556 


002405 




2043 


010560 


011501 




2044 


010562 


120001 




2045 


010564 


001767 




2046 


010566 


104005 




2047 


010570 


000406 




2048 


010572 


052714 


000020 


2049 


010576 


104412 




2050 


010600 


005714 




2051 


010602 


100001 




2052 


010604 


104001 




2053 


010606 


000207 




2054 








2055 








2056 








2057 








2058 


010610 


105777 


170324 


2059 


010614 


100416 




2060 


010616 


005003 




2061 


010620 


013701 


001230 


2062 


010624 


122127 


000101 


2063 


010630 


001402 




2064 


010632 


012703 


000400 


2065 


010636 


1057H 




2066 


010640 


001002 




2067 


010642 


012701 


001224 


2068 


010646 


010137 


001230 


2069 


010652 


000207 





WRITE ROUTINE FOR THE 



• •###»####«•*•»•»■»««■■»■########«■•»•»•» 


WPTBLK; 


MOV 


§8BLKLIM,R1 




MOVB 


#WRlTElGO,eTAC 


IS! 


WAITXFER 




BIT 


8READY,§TACS 




BNE 


3$ 




DEC 


Rl 




BLT 


2$ 




MOVB 


9#PATTRN,gTADB 




BR 


1$ 


2$: 


BIS 


#ILBS,£TACS 




WAITREADY 


3$s 


RTS 


PC 



MANUAL OPERATIONS 

;PICKUP THE BLOCK SIZE 
S ;START A WRITE 

;WAIT ON TRANSFER REQUEST 

;DID READY SET? 

;BR IF YES 

jCOUNT THIS REQUEST 

;BR IF TIME FOR ILBS 

?PUT DATA ON TAPE 

?LOOP 

;WRITE CRC AND SHUT DOWN 

fWAIT ON THE READY FLAG 



READ ROUTINE FOR THE MANUAL 

LK! MOV 9#BLKLIM,R2 
MOV 9#PATTRN,R0 
MOVB #READ!GO,9TACS 
WAITXFER 





BIT 


#READY,STACS 




BNE 


3$ 




DEC 


R2 




BLT 


2$ 




MOV 


gTADB,Ri 




CMPB 


R0,R1 




BEQ 


IS 




ERROR 


5 




BR 


4S 


2$; 


BIS 


#ILBS, PTACS 




WAITREADY 


3S: 


TST 


gTACS 




BPL 


45 




ERROR 


1 


4SS 


RTS 


PC 


• • #########«-########«-#####&# 




ROUTINE 


TO CHANGE DR 


NXTDRV: 


TSTB 


gSWR 




BMI 


3$ 




CLR 


DRIVE 




MOV 


g#DRVPNT,Ri 




CMPB 


(R1)+##'A 




BEQ 


1$ 




MOV 


#UNIT# DRIVE 


is: 


TSTB 


(Rl) 




BNE 


2$ 




MOV 


&DRVKEY,RI 


2S: 


MOV 


R1,MDRVPNT 


3S: 


RTS 


PC 



OPERATIONS 

PICKUP THE BLOCK SIZE 

USE THIS DATA PATTERN TO COMPARE TO 

START A READ 

WAIT ON TRANSFER REQUEST 

IS READY SET? 

BR IF YES 

COUNT THIS REQUEST 

BR IF TIME FOR ILBS 

READ THE DATA BUFFER 

CHECK THE DATA 

BR IF OK 

BAD DATA 

GET OUT 

READ ILBS 

WAIT ON READY 

CHECK FOR ERROR 

BR IF NONE 

ERROR OCCURRED 

RETURN 



;IS SW07 ON A (1)? 

jBR IF YES 

;SET DRIVE TO H A" 

;GET DRIVE POINTER 

;IS IT DRIVE "A"? 

;BR IF YES 

;SET DRIVE TO "B" 

;LAST DRIVE BEEN SELECTED 

;BR IF NO 

jRESET DRIVE POINTER 

;SAVE DRIVE POINTER FOR NEXT TIME 

jGO BACK 
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2070 










j »»#«■#««•»#«■*«• 


*###»#»*#»#*»**• ■»#########»#########«#*#####»####«•#«■ 


2071 
















2072 
2073 

2074 








.SBTTL 




ROUTINE TO EXAMINE 


DRIVE(S) FOR AVAILABLITY 








;CALLS 








2075 












MOV 


#DRVKEY,R0 




2076 












JSR 


PC,3#EXAM 


;R1 IS DESTROYED 


2077 












NORMAL 


RETURN 




2078 












ERROR 


RETURN 




2079 
















2080 


010654 


013701 


001206 


EXAM: 


MOV 


£#TACSL,R1 


,-PICKUP THE "CONTROL & STATUS" 


2081 


010660 


005011 






CLR 


(Rl) 


;DRIVE="A", FUNCTIONS" WFG" 


2082 


010662 


122710 


000101 




CMPB 


#'A,(R0) 


jEXAMINE DRIVE N A H ? 


2083 


010666 


001402 






BEQ 


1$ 


?BR IF YES 


2084 


010670 


052711 


000400 




BIS 


#UNIT,(R1) 


jSELECT DRIVE "B" 


2085 


010674 


032711 


000040 


is: 


BIT 


SREADY, (Rl) 


;WAIT ON READY 


2086 


010700 


001775 






BEQ 


1$ 




2087 


010702 


005711 






TST 


(Rl) 


;ANY ERROR? 


2088 


010704 


100024 






BPL 


4S 


;BR IF NO 


2089 


010706 


032711 


001000 




BIT 


#OFFLINE,(Ri) 


,-ERROR DUE TO "OFF LINE"? 


2090 


010712 


001017 






BNE 


3S 


;BR IF YES 


2091 


010714 


032711 


010000 




BIT 


#WRTLQCK,(R1) 


jERROR DUE TO "WRITE LOCK"? 


2092 


010720 


001411 






BEQ 


2S 


jBR IF NO 


2093 


010722 


122777 


000201 


170210 


CMPB 


#BIT07JBIT00»?SWR 


? "READONLY" SELECTED? (RDiPAS) 


2094 


010730 


001412 






BEQ 


4$ 


;BR IF YES 


2095 


010732 


122777 


000203 


170200 


CMPB 


#BIT071BIT01«BIT00 


gSWR j(RD2PAS)? 


2096 


010740 


001406 






BEQ 


4$ 


jBR IF YES 


2097 


010742 


000403 






BR 


3$ 


jTAKE THE ERROR EXIT 


2098 


010744 


032711 


020000 


2S; 


BIT 


#LEADER,(R1) 


jERROR DUE TO "CLEAR LEADER"? 


2099 


010750 


001002 






BNE 


4$ 


,-BR IF YES 


2100 


010752 


062716 


000002 


3$: 


ADD 


#2,CSP) 


;TAKE ERROR RETURN 


2101 


010756 


000207 






1$: 


RTS 


PC 


; RETURN 



010760 
010764 
010766 
010770 
010772 
010774 

011000 

011002 
011004 
011006 
011010 
011014 
0U016 
011022 
011024 
011030 
011032 
011034 
011036 
011040 
011044 
011046 
011052 
011056 
011060 

011064 
011070 
011072 
011076 
01 1102 



011104 
011110 
011114 
011122 
011124 



105767 
II 



170173 



TAU MANUAL INTERVENTION TEST 
DZTACC 9 NEW TYPE ROUTINE 



2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
21 1 i 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 



MAINDEOH«-D£TAOC 
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SEQ 0060 



000407 
010046 
017600 
112046 
001005 
005726 
012600 
062716 
000002 
122716 
001430 
122716 
0^1006 
005726 
104401 
001177 
105067 
000755 
004767 
126726 
001350 
016746 

105366 
002770 
004767 
105367 
000770 



112716 

004767 
132767 
001372 
005726 



000P56 
170100 



000032 
000072 



000040 
000014 
000007 



.SBTTL TYPE ROUTINE 



jfcROUTXNE TO TYPE ASCIZ MESSAGE 



|*THE ROUTINE WILL INSERT A 



MESSAGE MUST TERMINATE WITH A BYTE. 
NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 



jfcNOTEi: 

j#NOTE2: 

j#NQTE3S 

j# 

jfcCALLs 

j#l) USING A 

I* TYPE 

J#OR 

;* 



SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER fl 
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED* 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 



TRAP INSTRUCTION 
,MESADR 



TYPE 

MESADR 



60S! 
3$5 



5SS 
6§S 



TSTB 

BPL 

HALT 

BR 

MOV 

MOV 

MOVE 

BNE 

TST 

MOV 

ADD 

RTI 

CMPB 

BEQ 

CMPB 

BNE 

TST 

TYPE 

SCRLF 

CLRB 

BR 

JSR 

CMPB 

BNE 

MOV 



7S1 DECB 
BLT 
JSR 
DECB 
BR 



STPFLG 

is 

33 

R0,-(SP) 

@2CSP),R0 

(R0)*,«CSP) 

4$ 

CSP) + 

(SP)*,R0 

82, (SP) 

®HT,CSP) 

SS 

#CRLF,CSP) 

5$ 

(SP) + 



SCHARCNT 

2$ 

PCSTYPEC 

SFILLC, (SP) + 

2$ 

SNULL, -(SP) 

KSP) 
6$ 

PCSTYPEC 

SCHARCNT 
7S 



jHORIZONTAL TAB PROCESSOR 



811 
98! 



MOVB 

JSR 

BITB 

BNE 

TST 



#' ,(sp) 

pcstypec 
#7, scharcnt 

9S 
<SP)t 



j f MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



jjIS THERE A TERMINAL? 

jjBR IF YES 

jjHALT HERE IF NO TERMINAL 

j jLEAVE 

JJSAVE R0 

jjGET ADDRESS OF ASCIZ STRING 

fjPUSH CHARACTER TO BE TYPED ONTO STACK 

JjBR IF IT ISN'T THE TERMINATOR 

jjIF TERMINATOR POP IT OFF THE STACK 

jj RESTORE R0 

jjADJUST RETURN PC 

URETURN 

ff BRANCH IF <HT> 

jjBRANCH IF NOT «CRLF» 

jjPOP <CRXLF> EQUIV 
jjTYPE A CR AND LF 

jjCLEAR CHARACTER COUNT 

jjGET NEXT CHARACTER 

j}GO TYPE THIS CHARACTER 

;;IS IT TIME FOR FILLER CHARS,? 

?5 IF NO GO GET NEXT CHAR, 

jjGET * OF FILLER CHARS. NEEDED 

jjAND THE NULL CHAR. 

jjDOES A NULL NEED TO BE TYPED? 

jjBR IF NO — GO POP THE NULL OFF OF STACK 

fjGO TYPE A NULL 

jjDO NOT COUNT AS A COUNT 

j JLOOP 



jjREPLACE TAB WITH SPACE 

jjTYPE A SPACE 

jjBRANCH IF NOT AT 

I? TAB STOP 

jjPOP SPACE OFF STACK 



J 



TA11 MANUAL INTERVENTION TEST 
DZTACC.NEW TYPE ROUTINE 



2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 



011126 
011130 
011134 
011136 
011144 
011152 
011154 
011160 
011162 
011170 
011172 
011174 
011176 



000724 
105777 
100375 
116677 
122766 
001003 
105067 
000406 
122766 
001402 
105227 

000000 
000207 



170014 



011200 
011206 
011210 
011214 
011216 
011222 
011226 
011232 
011234 
011242 

011244 
011250 
011254 
011260 
011262 
011266 
011270 
011272 
©11276 

011300 
011304 



011310 
011314 
011316 
011322 

011326 



MAINDEC-11-DZTAC-C 



BR 
STYPECi TSTB 
BPL 
MOVB 
CMPB 
BNE 
CLRB 
BR 
is: CMPB 
BEQ 
INCB 
SCHARCNTS.WOPD 
STYPEXs RTS 
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167724 
177600 

57 



011725 
011732 
166716 



021627 

001005 
S04401 
062706 
000757 



170006 
000002 



000012 000002 



022767 
001074 
105777 
100071 
117746 
042716 
022726 
001062 
126727 
001456 

104401 
104401 
016746 
104402 
104401 
005046 
005046 
105777 
100375 



117746 167642 
042716 177600 



2S 

88TPS 

STYPEC 

2CSP),§STPB 

BCR,2CSP) 

1$ 

SCHARCNT 

STYPEX 

#LF,2CSP) 

STYPEX 

(PO + 



PC 



IlGET NEXT CHARACTER 

jjWAXT UNTIL PRINTER IS READY 

fjLOAD CHAR TO BE TYPED INTO DATA REG, 

I j IS CHARACTER A CARRIAGE RETURN? 

JjBRANCH IF NO 

;»YF.5--CLEAR CHARACTER COUNT 

jjEXIT 

;iIS CHARACTER A LINE FEED? 

jjBRANCH IF YES 

jjCOUNT THE CHARACTER 

jjCHAPACTER COUNT STORAGE 



.SBTTL TTY INPUT ROUTINE 



e ENABL LSB 



0176 167732 SCKSWRj 



j*SOFTWAPE SWITCH REGISTER CHANGE ROUTINE* 

;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

j#SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 

;#WHEN OPERATING IN TTY FLAG MODE e 



CMP 


#SWREG,SWR 


BNE 


15S 


TSTB 


9STKS 


BPL 


15S 


MOVB 


@$TKB,»(SP) 


BIC 


#*C177,CSP) 


CMP 


«7,CSP>+ 


BNE 


15$ 


CMPB 


SAUTOB,#l 


BEQ 


15S 


TYPE 


,SCNTLG 


TYPE 


,SMSWR 


MOV 


SWREG,»(SP) 


TYPOC 




TYPE 


,$MNEW 


CLR 


-CSP) 


CLR 


-(SP) 


TSTB 


§STKS 


BPL 


78 


MOVB 


#$TKB»-(SP) 


BIC 


#*C177,(SP) 


CMP 


CSP),#2§ 


BNE 


10$ 


TYPE 


,SCNTLU 


ADD 


#6,SP 


BR 


19$ 



;;IS THE SQFT-SWR SELECTED? 

jjBRANCH IF NO 

jjCHAR THERE? 

jjIF NO, DON'T WAIT AROUND 

jjSAVE THE CHAR 

jjSTRIP-OFF THE ASCII 

jjIS IT A CONTROL G? 

jfNO, RETURN TO USER 

jjARE WE RUNNING IN AUTOCODE? 

jjBRANCH IF YES 

jjECHO THE CONTROL-G ("G) 

jjTYPE CURRENT CONTENTS 

jjSAVE SWREG FOR TYPEOUT 

jjGO TYPE»»OCTAL ASCIKALL DIGITS) 

If PROMPT FOR NEW SWR 

jjCLEAR COUNTER 

nTHE NEW SWR 

jfCHAR THERE? 

j ? IF NOT TRY AGAIN 

JJPICK UP CHAR 
jjMAKE IT 7«BIT ASCII 



f I IS IT A CONTROLS? 
jjBRANCH IF NOT 
jjYES, ECHO CONTROL-U C"U) 
j j IGNORE PREVIOUS INPUT 
jjLET'S TRY IT AGAIN 



TA11 MANUAL INTERVENTION TEST MAINDEO! I -DZTAOC 
DZTACC 9 NEW TTY INPUT ROUTINE 
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2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2223 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
22S4 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 



011330 
011334 
011336 
011342 
011344 
011352 
011356 
011362 
011370 
011372 
011400 
011402 
011406 
011412 
011414 
011420 
011422 
011426 
011432 
011434 
011436 
011440 
011442 
011446 
011452 
011454 
011460 



011462 
011464 
011472 
011476 
011500 
011506 
011514 
011522 
011524 
011530 
011532 
0U536 
011542 
01154b 
011550 
011552 
011560 



021627 
001022 
005766 
001403 
016677 
062706 
104401 
126727 
001003 
012777 
000002 
004767 
021627 
002420 
021627 
003015 
042726 
005766 
001403 
006316 
006316 
006316 
005266 
056616 



000002 167566 



001177 
167547 



000060 
000002 



000002 
177776 



104401 001176 
000720 



011646 
016666 
105777 
300375 
117766 
042766 
026627 
001013 
105777 
100375 
117746 
042716 
022627 
001366 
000750 
026627 
002407 



000004 
167446 

167442 
177600 

000004 



167410 
177600 
000021 



US! 
14S: 



15SS 

16SS 



9 DSABL 



CMP (SP),8|5 fjIS IT A <CR»? 

BNE 16S ff BRANCH IF NO 

TST 4(SP) HUES, IS IT THE FIRST CHAR? 

BEQ 11$ nBRANCH IF YES 

MOV 2(SP),§SWR ffSAVE NEW SWR 

ADD #6,SP f fCLEAR UP STACK 

TYPE ,$CRLF ffECHO <CR> AND «LF» 

CMPB $INTAG,#1 ffRE-ENABLE TTY KBD INTERRUPTS? 

BNE 15S ; f BRANCH IF NOT 

MOV #100,&$TKS ; jRE-ENABLE TTY KBD INTERRUPTS 

RTI ff RETURN 

JSR PCSTYPEC fjECHO CHAR 

CMP (SP),860 ffCHAR < 0? 

BLT 18$ ffBRANCH IF YES 

CMP (SP),#67 ffCHAR > 7? 

BGT 18$ ffBRANCH IF YES 

BIC 860, (SP)* ffSTRIP»OFF ASCII 

TST 2(SP) ?|IS THIS THE FIRST CHAR 

BEG 17S ffBRANCH IF YES 

ASL (SP) ;jNO, SHIFT PRESENT 

ASL (SP) ff CHAR OVER TO MAKE 

ASL (SP) ff ROOM FOR NEW ONE, 

INC 2(SP) ffKEEP COUNT OF CHAR 

BIS »2(SP),£SP) ffSET IN NEW CHAR 

BR 7$ ffGET THE NEXT ONE 

TYPE , SQUES ffTYPE ?<CRXLF> 

BR 20$ ff SIMULATE CONTROLS 

LSB 



#THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
®CALLs 

* RDCHR ff INPUT A SINGLE CHARACTER FROM THE TTY 

* RETURN HERE f fCHAPACTER IS ON THE STACK 

* ffWITH PARITY BIT STRIPPED OFF 



14 

000004 
000023 



000004 000140 3$J 



MOV 

MOV 

TSTB 

BPL 

MOVB 

BIC 

CMP 

BNE 

TSTB 

BPL 

MOVB 

BIC 

CMP 

BNE 

BR 

CMP 

BLT 



-(SP) 
i2(SP) 



(SP)# 

4CSP), 

PSTKS 

IS 

@$TKB,4(5P) 

#*C«177>,4CSP) 

4(SP),&23 

3$ 

§STKS 

2$ 

§STKB,«(SP) 

#~C177,(SP) 

£SP)+,#21 

2$ 

1$ 

4(SP),#140 

4$ 



fPUSH DOWN THE PC 

fSAVE THE PS 

fWAlT FOR 

?A CHARACTER 

j READ THE TTY 

jGET RID OF JUNK IF AN 

fIS IT A CONTROL-S? 

fBRANCH IF NO 

fWAIT FOR A CHARACTER 

fLOOP UNTIL ITS THERE 

fGET CHARACTER 

jMAKE IT 7»BIT ASCII 

IIS IT A CONTROLS? 

fIF NOT DISCARD IT 

fYES, RESUME 
jflS IT UPPER CASE? 
ffBRANCH IF YES 



TAli MANUAL INTERVENTION TEST MAINDEC-i 1 »DZTAC-C 
DZTACC»NEW TT¥ INPUT ROUTINE 
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2273 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 



011562 026627 

011570 003003 

011572 042766 

011600 000002 



000004 
000040 



000175 
000004 



1602 
1604 
1610 
1614 
1616 
1620 
1622 
1626 
1630 
1634 
1636 
1642 
1646 
1652 
1654 
1660 
1664 
1666 
1670 
1676 
1704 
1706 
1707 



011710 
011720 
011725 
011732 
011740 
011743 
011750 



010346 
012703 
022703 
101405 
104407 
112613 
122713 
001003 
104401 
000763 
111367 
104401 
122723 
001356 
105063 
104401 
012603 
011646 
016666 
012766 
000002 

000 

003 
000010 
052536 

136 
005015 
020075 

040 
036440 



911754 
011756 
011764 
011766 
011770 



1646 
6666 



0146 
0246 



011710 
011720 



000177 
001176 



011706 
000015 



177777 

001200 



000004 
011710 



005015 
006507 
053523 
000 
047040 
000040 



000002 
000004 



000012 
020122 



000004 000002 



4$: 

*THIS 
*CALLs 



CMP 4(SP),#175 ; ? IS IT A SPECIAL CHAR? 

BGT 4$ ffBRANCH IF YES 

BIC «40,4(SP) ffMAKE IT UPPER CASE 

RTI ; jGO BACK TO USER 

nn»»****-##*#* #*#######&##*###### ##########*###$•&##«•#«■ »«#** 
ROUTINE WILL INPUT A STRING FROM THE TTY 



RDLIN 
RETURN HERE 



SRDLIN: 

is; 

2SS 



10$! 



4$5 



3$S 



MOV 
MOV 
CMP 
BLOS 
RDCHR 
MOVB 
CMPB 
BNE 
TYPE 
BR 

MOVB 
TYPE 
CMPB 
BNE 
CLRB 
TYPE 
MOV 
MOV 
MOV 
MOV 
RTI 
9 BYTE 
.BYTE 
STTYINf 9 BLKB 
SCNTLUs .ASCIZ 
SCNTLGS „ASCIZ 
$MSWRS .ASCIZ 



9$ 



R3,»(SP) 

#STTYIN,R3 
$S$TTYIN + S 8 ,R3 
4$ 

(SP)+,(R3) 

#177, (R3) 

3S 

tSGUES 

IS 

(R3)#9S 

,9$ 

*15,(R3)+ 

2$ 

-KR3) 

,SLF 

(SP)+,R3 

CSP),»CSP) 

4(SP),2CSP) 

8STTYIN,4CSP) 





S* 

/*U/<15X12> 

/"G/<15><12> 

<!5>«12»/SWR a 



? I INPUT A STRING FROM THE TTY 

ff ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 

ff TERMINATOR WILL BE A BYTE OF ALL 0'S 

fSAVE P3 

;GET ADDRESS 

fBUFFER FULL? 

JBR IF YES 

fGO READ ONE CHARACTER FROM THE TTY 

|GET CHARACTER 

J IS IT A RUBOUT 

fSKIP IF NOT 

ITYPE A *?• 

fCLEAR THE BUFFER AND LOOP 

fECHO THE CHARACTER 

fCHECK FOR RETURN 

lLOOP IF NOT RETURN 

fCLEAR RETURN (THE 15) 

ITYPE A LINE FEED 

fRESTORE R3 
ff ADJUST THE STACK AND PUT ADDRESS OF THE 
ff FIRST ASCII CHARACTER ON IT 

ff RETURN 

% f STORAGE FOR ASCII CHAR, TO TYPE 

IJTERMINATOR 

ff RESERVE 8 BYTES FOR TTY INPUT 

ff CONTROL M U W 

ff CONTROL "G" 



8MNEWS 9 ASCIZ / NEW a / 

8 SBTTL READ AN OCTAL NUMBER FROM THE TTY 

j *#»##-»#####«*##«#*#»##*»*##-»#####«#####«#*#»*####*###*##® ###### 
*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
*CHANGE IT TO BINARY, 
*CALLs 

• RDOCT ffREAD AN OCTAL NUMBER 

# RETURN HERE ffLOW ORDER BITS ARE ON TOP OF THE STACK 

♦ ff HIGH ORDER BITS ARE IN SHIOCT 



SRDOCTJ MOV 
MOV 
MOV 
MOV 
MOV 



(SP),-(5P) 
4CSP),2(SP) 
R0,»(SP) 
R1,-(SP) 



ff PROVIDE SPACE FOR THE 
ff INPUT NUMBER 
J J PUSH R0 ON STACK 
fjPUSH Rl ON STACK 
ffPUSH R2 ON STACK 



TAU MANUAL INTERVENTION TEST MAINDEC-1 l»DZTAOC 
DZTACC 9 NEW READ AN OCTAL NUMBER FROM THE TTY 
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2326 


011772 


104410 




2327 


011774 


012600 




2328 


011776 


005001 




2329 


012000 


005002 




2330 


012002 


112046 




2331 


012004 


001412 




2332 


012006 


006301 




2333 


012010 


006102 




2334 


012012 


006301 




2335 


012014 


006102 




2336 


012016 


006301 




2337 


012020 


006102 




2338 


012022 


042716 


177770 


2339 


012026 


062601 




2340 


012030 


000764 




2341 


012032 


005726 




2342 


012034 


010166 


000012 


2343 


012040 


010267 


000010 


2344 


012044 


012602 




2345 


012046 


012601 




2346 


012050 


012600 




2347 


012052 


000002 




2348 


012054 


000000 




2349 








2350 








2351 








2352 








2353 








2354 








2355 








2356 








2357 








2358 








2359 








2360 








2361 








2362 








2363 








2364 








2365 








2366 








2367 








2368 








2369 








2370 








2371 








2372 








2373 








2374 


012056 


017646 


000000 


2375 


012062 


116667 


000001 


2376 


012070 


112667 


000207 


2377 


012074 


062716 


000002 


2378 


012100 


000406 




2379 


012102 


112767 


000001 


2380 


012110 


112767 


000006 


2381 


012116 


112767 


000005 



RDLIN 




MOV 


(SPH,R0 


CLR 


Rl 


CLR 


R2 


MOVB 


(R0)*,»CS 


BEQ 


3$ 


ASL 


Rl 


ROL 


R2 


ASL 


PI 


ROL 


R2 


ASL 


Rl 


ROL 


R2 


BIC 


#"C7 f (SP) 


ADD 


(SPH,R1 


BR 


2$ 


TST 


(SP)* 


MOV 


R1,12(SP) 


MOV 


R2,$HIGCT 


MOV 


(SPH,R2 


MOV 


(SP)+,R1 


MOV 


CSP)+,R0 


RTI 




.WORD 






.SBTTL BINARY TO OCTAL (ASCII) 



,'JREAD AN ASCIZ LINE 

?;GET ADDRESS OF 1ST CHARACTER 

jjCLEAR DATA WORD 

jjPICKUP THIS CHARACTER 
?;ZF ZERO GET OUT 
•;*2 



JSTRIP THE ASCII JUNK 

jADD IN THIS DIGIT 

?LOOP 

jCLEAN TERMINATOR FROM STACK 

;SAVE THE RESULT 

jPOP STACK INTO B2 
jPOP STACK INTO Rl 
JPOP STACK INTO R0 
j RETURN 

jHIGH ORDER BITS GO HERE 
AND TYPE 



#THIS ROUTINE IS USED TO CHANGE A 16»BIT BINARY NUMBER TO A 6»DIGIT 

*OCTAL (ASCII) NUMBER AND TYPE IT f 

*$TYPOS»»-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

*CALL! 

* MOV NUM,~(SP) ;?NUMBER TO BE TYPED 

* TYPOS ? J CALL FOR TYPEOUT 

* .BYTE N ;?Nsl TO 6 FOR NUMBER OF DIGITS TO TYPE 

* .BYTE M ;j m= 1 OR 

* ;jl=TYPE LEADING ZEROS 

* ;?0=SUPPRESS LEADING ZEROS 

*$TYPON»»»~ENTER HERF. TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

*STYPOS OR STYPOC 

*CALLS 

* MOV NUM,«(SP) jjNUMBER TO BE TYPED 

* TYPON ;jCALL FOR TYPEOUT 

*STYPOC»»»ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
*CALLs 

* MOV NUM,-(SP) ;$NUMBER TO BE TYPED 

* TYPOC ;?CALL FOR TYPEOUT 



STYPOSS MOV 
000211 MOVB 

MOVB 
ADD 
BR 
000171 STYPOCj MOVB 
000165 MOVB 

000154 STYPONj MOVB 



3(SP),-(SP) 
1 (SP)#$0FILL 

(SP)+,$OMODE+l 

#2, (SP) 

STYPON 

#1,$0F1LL 

#6rSOMOD£*l 

85,$OCNT 



;PICKUP THE MODE 
;LOAD ZERO FILL SWITCH 
;NUMBER OF DIGITS TO TYPE 
jADJUST RETURN ADDRESS 

;SET THE ZERO FILL SWITCH 
jSET FOR SIXC6) DIGITS 

JSET THE ITERATION COUNT 
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2382 


012124 


010346 




2383 


012126 


010446 




2384 


012130 


010546 




2385 


012132 


116704 


000145 


2386 


012136 


005404 




2387 


012140 


062704 


000006 


2388 


012144 


110467 


000132 


2389 


012150 


116704 


000125 


2390 


012154 


016605 


000012 


2391 


012160 


005003 




2392 


012162 


006105 




2393 


012164 


000404 




2394 


012166 


006105 




2395 


012170 


006105 




2396 


012172 


006105 




2397 


012174 


010503 




2398 


012176 


006103 




2399 


012200 


105367 


000076 


2400 


012204 


100016 




2401 


012206 


042703 


177770 


2402 


012212 


001002 




2403 


012214 


005704 




2404 


012216 


001403 




2405 


012220 


005204 




2406 


012222 


052703 


000060 


2407 


012226 


052703 


000040 


2408 


012232 


110367 


000040 


2409 


012236 


104401 


012276 


2410 


012242 


105367 


000032 


2411 


012246 


003347 




2412 


012250 


002402 




2413 


012252 


005204 




2414 


012254 


000744 




2415 


012256 


012605 




2416 


012260 


012604 




2417 


012262 


012603 




2418 


012264 


016666 


000002 


2419 


012272 


012616 




2420 


012274 


000002 




2421 


012276 


000 




2422 


012277 


000 




2423 


012300 


000 




2424 


012301 


000 




2425 


012302 


000000 







MOV 


R3,-(SP) 


JSAVE R3 




MOV 


R4,-(SP) 


;SAVE R4 




MOV 


R5,»(SP) 


; SAVE R5 




MOVB 


$0M0DE+1,R4 


;GET THE NUMBER OF DIGITS TO TYPE 




NEG 


R4 






ADD 


86, R4 


.•SUBTRACT IT FOR MAX, ALLOWED 




MOVB 


R4, SOMODE 


JSAVE IT FOR USE 




MOVB 


S0FILL,R4 


jGET THE ZERO FILL SWITCH 




MOV 


12(SP),P5 


;PICKUP THE INPUT NUMBER 




CLR 


R3 


fCLEAR THE OUTPUT WORD 


1$: 


ROL 


R5 


fROTATE MSB INTO H C H 




BR 


3$ 


jGO DO MSB 


2$; 


ROL 


R5 


;FORM THIS DIGIT 




ROL 


R5 






ROL 


R5 






MOV 


R5,R3 




3$! 


ROL 


R3 


IGET LSB OF THIS DIGIT 




DECB 


SOMODE 


;TYPE THIS DIGIT? 




BPL 


7S 


JBR IF NO 




BIC 


#177770, R3 


;GET RID OF JUNK 




BNE 


4$ 


?TEST FOR 




TST 


R4 


^SUPPRESS THIS 0? 




BEQ 


5$ 


;BR IF YES 


4S: 


INC 


R4 


fDON'T SUPPRESS ANYMORE 0'S 




BIS 


#'0,R3 


jMAKE THIS DIGIT ASCII 


5$S 


BIS 


#• ,R3 


•jMAKE ASCII IF NOT ALREADY 




MOVB 


R3,8$ 


,-SAVE FOR TYPING 




TYPE 


,8S 


•fGO TYPE THIS DIGIT 


7S5 


DECB 


SOCNT 


•jCOUNT BY 1 




BGT 


25 


JBR IF MORE TO DO 




BLT 


6$ 


JBR IF DONE 




INC 


R4 


?INSURE LAST DIGIT ISN'T A BLANK 




BR 


2S 


fGO DO THE LAST DIGIT 


6SJ 


MOV 


(5P)*,R5 


? RESTORE R5 




MOV 


(SP)+,R4 


jRESTORE R4 




MOV 


(SP)+,R3 


■yRESTORE R3 




MOV 


2(SP) ? 4(SP) 


;jSET THE STACK FOR RETURNING 




MOV 


(SP)*,(SP) 






RTI 




; % RETURN 


8$: 


,BYTE 





?f STORAGE FOR ASCII DIGIT 




.BYTE 





•;TERMINATOR FOR TYPE ROUTINE 


SOCNTI 


.BYTE 





?;OCTAL DIGIT COUNTER 


S0FILLI 


a BYTE 





•jZERO FILL SWITCH 


SOMODE; 


.WORD 





?jNUMBER OF DIGITS TO TYPE 
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2426 






2427 






2428 






2429 






2430 






2431 






2432 






2433 






2434 


012304 


010046 


2435 


012306 


016600 000002 


2436 


012312 


005740 


2437 


012314 


111000 


2438 


012316 


006300 


2439 


012320 


016000 012340 


2440 


012324 


000200 


2441 






2442 






2443 






2444 






2445 


012326 


011646 


2446 


012330 


016666 000004 


2447 


012336 


000002 


2448 






2449 






2450 






2451 






2452 






2453 






2454 






2455 






2456 


012340 


012326 


2457 


012342 


010760 


2458 


012344 


012102 


2459 


012346 


012056 


2460 


012350 


012116 


2461 






2462 


012352 


011250 


2463 






2464 


012354 


011200 


2465 


012356 


011462 


2466 


012360 


011602 


2467 


012362 


011754 


2468 


012364 


006630 


2469 


012366 


006734 



.SBTTL TRAP DECODER 

?#THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
j*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
?#OF THE DESIRED ROUTINE, THEN USING THE ADDRESS OBTAINED IT WILL 
j*GQ TO THAT ROUTINE. 

STRAP! 



MOV 


R0,»(SP) 


? ; SAVE R0 


MOV 


2(SP),R0 


jjGET TRAP ADDRESS 


TST 


»(R0) 


yjBACKUP BY 2 


MOVB 


(R0),R0 


j;GET RIGHT BYTE OF TRAP 


ASL 


R0 


^POSITION FOR INDEXING 


MOV 


$TRPAD(R0),R0 


J? INDEX TO TABLE 


RTS 


R0 


;jGO TO ROUTINE 



flTHIS IS USE TO HANDLE THE "GETPRI" MACRO 



STRAP2! MOV 
MOV 
RTI 



(SP),»(SP) 
4(SP),2(SP) 



JJMOVE THE PC DOWN 
?;MOVE THE PSW DOWN 
jfRESTORE THE PSW 



.SBTTL TRAP TABLE 



j*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE "TRAP" INSTRUCTION. 



STRPAD: .WORD STPAP2 



$TYPE 

STYPOC 

STYPOS 

STYPON 

SGTSWR 



;|CALL=TYPE 
?;CALL=TYPOC 
f JCALL=TYP0S 
j;CALLsTYPON 

;|CALL=GTSWR 



TRAP+1 (104401) 
TRAP + 2U04402) 
TRAP + 3U04403) 
TRAP+4(104404) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 



SCKSWR jfCALLsCKSWR 

SRDCHP ;?CALL=PDCHR 

SRDLIN ;,'CALL=RDLIN 

SRDOCT ;jCALL=RDOCT 



WAIT.ON.READY 
WAIT. FOR. XFER 



TRAP+5(104405) GET SOFT-SWP SETTING 

TRAP + 6U04406) TEST FOR CHANGE IN SOFT»SWR 

TRAP+7(104407) TTY TYPEIN CHARACTER ROUTINE 

TRAP+10U04410) TTY TYPEIN STRING ROUTINE 

TRAP+1 1(104411) READ AN OCTAL NUMBER FROM TTY 



; JCALL=WAITREADY TRAP+1 2 ( 10441 2) WAIT ON THE READY BIT TO 
,• ;CALL=WAITXFER TRAP+ 1 3 ( 10441 3 ) WAIT ON XFER REQ. 
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2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 



.SBTTL POWER DOWN AND UP ROUTINES 



012370 
012376 
012404 
012406 
012410 
012412 
012414 
012416 
012420 
012424 
012430 
012436 
012440 



012442 
012450 
012454 
012460 
012464 
012466 
012472 
012474 
012476 
012500 
012502 
012504 
012506 
012514 
012522 
012524 
012526 
012530 
012532 
012534 
012536 
012540 
012542 
012550 



012737 
012737 
010046 
010146 
010246 
010346 
010446 
010546 
017746 
010667 
012737 



jPOWEP DOWN ROUTINE 



000776 



012737 
016706 
005067 
005267 
001375 
012677 
012605 
012604 
012603 
012602 
012601 
012600 
012737 
012737 
104401 
012542 
012716 
002172 
000002 



000776 



012534 
000340 



166514 
000110 
012442 



012534 
000064 
000060 

000054 

166446 



012370 
000340 



000024 
000026 



000024 
000026 



005015 
000122 



047520 042527 



SPWRDNs MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
HALT 
BR 

;power up routi 
spwrup: mov 

MOV 

CLR 

1$X INC 

BNE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TYPE 
SPWRMG; .WORD 

MOV 
SPWRADs .WORD 

RTI 
SILLUPs HALT 

BR 
SSAVR6! 
SPOWERS .ASCIZ 

9 EVEN 



#$ILLUP,0#PWRVEC 

#340,?#PWRVEC+2 

R0,«>(SP) 

R1,-(SP) 

R2,»(SP) 

R3,»(SP) 

R4,»(SP) 

P5,»(SP) 

0SWR,»(SP) 

SP,$SAVR6 

#SPWRUP,§#PWRVEC 



;jSET FOR FAST UP 

fPRIO;7 

JPUSH R0 ON STACK 

;PUSH Rl ON STACK 

;PUSH R2 ON STACK 

;PUSH R3 ON STACK 

jPUSH R4 ON STACK 

jPUSH R5 ON STACK 

?PUSH PSWR ON STACK 

JSAVE SP 

fjSET UP VECTOR 

?HANG UP 



<##*■»#■»###«•«■»#«•■»###«•###•»###*###«.*#«###«.«.#«.#«.$## 



### 
NE 

#$ILLUP,§8PWRVEC 

$SAVR6,SP 

SSAVR6 

SSAVR6 

1$ 

(SP)+, gSWR 

(SP)+,R5 

(SP)+,R4 

(SP)+,R3 

(SP)+,R2 

(SP)+,R1 

(SP)+,R0 

8$PWRDN,@f*PWRVEC 

8340 # e8PWRVEC+2 

SPOWER 

(PC)+,(SP) 

PWRST 



<15><12> n POWER B 



JjSET FOR FAST DOWN 

?GET SP 

;WAIT LOOP FOR THE TTY 

JWAIT FOR THE INC 

?OF WORD 

jPOP STACK INTO 3SWR 

?POP STACK INTO R5 

fPOP STACK INTO R4 

?POP STACK INTO R3 

;P0P STACK INTO R2 

JPOP STACK INTO Rl 

?POP STACK INTO R0 

;?SET UP THE POWER DOWN VECTOR 

;PRIO?7 

REPORT THE POWER FAILURE 

;POWER FAIL MESSAGE POINTER 

fRESTART AT PWRST 

^RESTART ADDRESS 

;THE POWER UP SEQUENCE WAS STARTED 
1 BEFORE THE POWER DOWN WAS COMPLETE 
?PUT THE SP HERE 
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2515 


012552 


042200 


044522 


042526 


MSGDRVS 


2516 


012560 


051450 


037451 


000040 




2517 


012566 


005015 


040524 


051503 


MSGASKl 


2518 


012574 


000077 








2519 


012576 


042526 


052103 


051117 


MSGVECS 


2520 


012604 


000077 








2521 


012606 


051120 


047511 


044522 


MSGPRXs 


2522 


012614 


054524 


000077 






2523 


012620 


040524 


051503 


000075 


MTACS? 


2524 


012626 


052040 


042101 


036502 


MTADBS 


2525 


012634 


000 








2526 


012635 


040 


042526 


052103 


MTAVECs 


2527 


012642 


051117 


000075 






2528 


012646 


050040 


044522 


051117 


MTAPRIS 


2529 


012654 


052111 


036531 


000 




2530 


012661 


015 


047412 


037513 


MSGQKS 


2531 


012666 


000 








2532 


012667 


131 


051505 


000200 


MYES! 


2533 


012674 


047520 


042527 


020122 


MTUPWR? 


2534 


012702 


047504 


047127 


052040 




2535 


012710 


033125 


000060 






2536 


012714 


047520 


042527 


020122 


MPWRUPs 


2537 


012722 


050125 


052040 


033125 




2533 


012730 


000060 








3539 


012732 


042522 


047515 


042526 


MOFFLNi 


2540 


012740 


041440 


051501 


042523 




2541 


012746 


052124 


020105 


051106 




2542 


012754 


046517 


042040 


044522 




2543 


012762 


042526 


052440 


042116 




2544 


012770 


051105 


052040 


051505 




2545 


012776 


000124 








2546 


013000 


042522 


046120 


041501 


MTAPES 


2547 


013006 


020105 


040503 


051523 




2548 


013014 


052105 


042524 


000 




2549 


013021 


123 


052105 


053440 


MWRTLKs 


2550 


013026 


044522 


042524 


046040 




2551 


013034 


041517 


000113 






2552 


013040 


042523 


020124 


051127 


MLASTS 


2553 


013046 


052111 


020105 


047105 




2554 


013054 


041101 


042514 


000 




2555 


013061 


123 


040524 


052524 


EM IS 


2556 


013066 


020123 


051120 


041117 




2557 


013074 


042514 


000115 






2558 


013100 


051042 


040505 


054504 


EM2S 


2559 


013106 


020042 


040506 


046111 




2560 


013114 


042105 


052040 


020117 




2561 


013122 


042523 


000124 






2562 


013126 


052042 


040522 


051516 


EM 3 s 


2563 


013134 


042506 


020122 


042522 




2564 


013142 


052521 


051505 


021124 




2565 


013150 


043040 


044501 


042514 




2566 


013156 


020104 


047524 


051440 




2567 


013164 


052105 


000 






2568 


013167 


124 


042510 


053440 


EM4S 


2569 


013174 


047522 


043516 


043040 




2570 


013202 


040514 


020107 


042523 





„ASCIZ «£CRLF> H DPIVE(SD? w 

8 ASCIZ «1§»<12»/TACS?/ 

e ASCIZ /VECTOR?/ 

9 ASCIZ /PRIORITY?/ 

9 ASCIE /TACSs/ 

.ASCII / TADBs/ 

sASCXE / VECTOR^/ 

S ASCIE / PRIORITYs/ 

,ASCIE «15><12»/0K?/ 

9 ASCIE /YES/<CRLF> 

,ASCIZ /POWER DOWN TU60/ 

S ASCIZ /POWER UP TU60/ 

8 ASCIZ /REMOVE CASSETTE FROM DRIVE UNDER TEST/ 

«ftSCXZ /REPLACE CASSETTE/ 

.ASCIZ /SET WRITE LOCK/ 

e ASCIE /SET WRITE ENABLE/ 

ff ASCIE /STATUS PROBLEM/ 

9 ASCIE / S READY H FAILED TO SET/ 

*ASCIZ /"TRANSFER REQUEST" FAILED TO SET/ 

8 ASCIZ /THE WRONG FLAG SET/ 
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2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2609 
2609 
2610 
2611 



013210 
013212 
013220 
013226 
013227 
013234 
013242 
013244 
013252 
013260 
013266 
013274 
013301 
013306 
013314 
013322 
013330 
013336 

013340 
013346 
013354 
013356 
013364 
013370 



000124 
040504 
047522 

000 

120 
020040 
000123 
041520 
020040 
020040 
052111 
042522 

120 
020040 
020123 
050130 
051040 

000 
013340 
001116 
001116 



001116 
001126 
001116 



040524 
046102 

020103 
052040 

020040 
040524 
020040 
040440 
051523 
020103 
052040 
020040 
041505 
053103 



001162 
001162 



001162 

001206 



013402 
013410 
013416 
013424 
013431 
013436 
013444 
013452 
013454 
013462 
013470 
013471 



040524 
044501 
047524 

047520 

116 

053111 

044501 
000105 

041S20 

020040 

000 

120 

000001 



050040 
046505 

020040 
041501 

020040 
051503 
040527 
042104 
000 
020040 
041501 
042440 
020124 
042047 



013376 001116 000000 



001202 
001124 



030461 
042514 
051040 
042116 
020117 
020105 
040514 

020040 
040524 



043040 
020104 
051505 
000 
051104 
053101 
046102 

020040 
051503 



DTlS 

DT2I 

DT5S 

DT20II 

DT202! 

EM201I 



.ASCIZ /DATA PROBLEM/ 

ASC1Z /PC TAGS/ 

.ASCIZ /PC TAGS WAIT ADDRESS/ 

e ASCXZ /PC TAGS EXPECT RCV'D/ 



s WORD $ERRPC*$REG0,0 

.WORD SERPPC,§REG0,SAVPC,0 

a WORD SERRPC* SREG0* SGDDAT, SBDDAT, 

e WORD SERRPC,TACSL,0 

a mm SERRPC#0 

e ASCIE "TAI1 FAILED TO RESPOND" 



EM2028 9 ASCIE B NO DRIVE AVAILABLE" 



8 ASCIZ /PC 



B ASCXZ /PC/ 
S END 
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ASKADR 


007146 


ASKDRV 


007036 


ASKKEY 


001232 


ASKQUE 


007436 


BEGINX 


001730 


BEGIN! 


001326 


BEGIN2 


001360 


BEGIN3 


001366 


BEGIN4 


001374 


BGNCMN 


001400 


BIT0 s 


000001 


BIT00 s 


000001 


BIT01 s 


000002 


BIT02 a 


000004 


BIT03 a 


000010 


BIT04 e 


000020 


BIT05 a 


000040 


BIT06 s 


000100 


BIT07 = 


000200 


BIT08 s 


000400 


BIT09 s 


001000 


BIT1 s 


000002 


BIT10 a 


002000 


BITli a 


004000 


BIT12 « 


010000 


BIT13 sj 


020000 


BIT14 s 


040000 


BIT15 s 


100000 


BIT2 « 


000004 


BIT3 s 


000010 


BIT4 s 


000020 


BITS s 


000040 


BIT6 a 


000100 


BIT7 s 


000200 


BIT8 s 


000400 


BIT9 s 


001000 


BLKLIM 


010462 


BPTVECs 


000014 


BSBG s 


000010 


BSFG s 


000006 


BSFGSB 


010320 


CHKADR 


001752 


CHKDPV 


002032 


CKSWR ■ 


104406 


CR ■ 


000015 


CPCERRs 


040000 


CRLF a 


000200 


CURDRV 


001234 


DDISP ■ 


177570 


DH1 


013227 


DH2 


013244 


DH201 


013454 


DH202 


013471 


DH5 


01330! 


DISPL& 


001142 


DISPRE 


000174 



556 


16928 
















553 


1660$ 


1683 














395# 


643* 


673 














731 


789 


803 


818 


885 


1392 


17608 






234 


550SJ 


586 


588 


636 


638 








231 


469# 
















232 


476# 
















233 


475 


4788 














4808 


















472 


474 


477 


479 


4818 










1668 


















1568 


166 


208 


2093 


2095 










1558 


165 


207 


2095 












154# 


164 


206 














153# 


163 


205 














1528 


162 


204 














15i« 


161 


203 














1508 


160 


202 














!49# 


159 


201 


2093 


2095 










I48# 


158 


200 


1478 












147# 


157 


199 


i486 


1550 










165# 


















1468 


198 


1534 














145# 


197 


1493 














1448 


196 
















143S 


195 


1541 














142® 


194 


1464 














141 • 


193 


654 














154* 


















163® 


















1628 


















161# 


















1608 


















1598 


















1588 


















157S 


















1997* 


20U# 


2018 


2035 












173S 


















1868 


765 


921 


96! 


1021 


1061 


1113 1153 


1213 


1253 


1858 


760 


916 


956 


1016 


1056 


1108 1148 


1208 


1248 


241 


19718 


1972 


1979 












552 


555 


5748 














6128 


















1463 


1526 


1549 


24648 












818 


2162 


2172 














194S 


997 


1089 














828 


538 


2133 


2172 


2515 


2532 








3968 


666* 


667 














88$ 


364 


509 














417 


2575# 
















423 


429 


435 


25788 












449 


2607# 
















454 


2610® 
















441 


2S83& 
















3648 


509* 


517* 


1507* 


1513* 










2283 


517 
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DRVKEY 


001224 


DRVPNT 


001230 


DSWR s 


177570 


DTI 


013340 


DT2 


013346 


DT201 


013370 


DT202 


013376 


DT5 


013356 


EMTVECss 


000030 


EMI 


013061 


EM2 


013100 


EM201 


013402 


EM202 


01343! 


EM3 


013126 


EM4 


013167 


EMS 


013212 


ERROR s 


100000 


ERRVECs 


000004 


EXAM 


010654 


EXIT 


007136 


FGAP s 


004000 


FUNCTIs 


000016 


FUNC0 s 


000002 


FUNC1 a 


000004 


FUNC2 s 


000010 


GNS s 


«■##«&»• u 


GO a 


000001 



GTSWR a 


104405 


HERE 


001730 


HGHT1M 


006706 


HT s 


000011 


ILBS = 


000020 


INT«ENs 


000100 


lOTVECs 


000020 


ITEMS2 


001306 


LEADERS 


020000 


LF a 


000012 


LOOP 


007062 


LOOP! 


000500 


LOOP2 


000600 


LOOP3 


000700 


MANUAL 


002152 


MAXCNT 


006732 


MLAST 


013040 


MOFFLN 


012732 


MP&RUP 


012714 


MSGASK 


012566 


MSGDRV 


012552 


MSGID 


001702 


MSGOK 


012661 



393# 


394 


470* 


612 


625 


646 


671 


1661* 


1666 


1680 


1684 


2067 




394«? 


626* 


646* 


657 


672* 


2061 


2068* 














87# 


363 


508 






















418 


25908 
























424 


430 


436 


25918 




















450 


25958 
























455 


25978 
























442 


25938 
























176® 


492* 


493* 






















416 


25558 
























422 


25588 
























448 


2599# 
























453 


2603ft 
























428 


2562# 
























434 


25688 
























440 


25728 
























1938 


























169# 


506 


507* 


518* 


574* 


580* 


1469 


1470* 


1472* 


1475* 








613 


617 


622 


2080# 




















1679 


1684* 
























1978 


1089 


1189 






















2098 


























2079 


209 
























2061* 


209 
























2058 


209 
























227 


537 


664 


719 


723 


1776 


1784 


2457 


2458 


2459 


2460 


2462 


2464 


2465 


2466 


2467 


2468 


2469 


















2088 


303 


306 


325 


328 


685 


702 


704 


745 


750 


755 


760 


765 


770 


775 


780 


837 


845 


856 


865 


869 


892 


989 


991 


1181 


1183 


1187 


1282 


1284 


1288 


1293 


1305 


1308 


1326 


1328 


1335 


1337 


1339 


1343 


1358 


1360 


1378 


1380 


1397 


1410 


1813 


1816 


1845 


1868 


1899 


1902 


1927 


1933 


1955 


1958 


1974 


2019 


2037 
















532 


679 


1989 


2002 


2008 


24628 
















523 


525 


536 


5388 




















706 


1603* 


1617* 






















798 


2131 


2172 






















204# 


852 


863 


876 


995 


1185 


1286 


1312 


1330 


1341 


1346 


2027 


2048 


202# 


























174# 


490* 


491* 






















4463 


























195# 


897 


1089 


1365 


1383 


1818 


1849 


1872 


1904 


1907 


1931 


1935 


1960 


1976 


2098 
























80$ 


2166 


2172 






















1667® 


1681 
























291# 


292 
























301S 


312 
























3238 


334 
























632 


6403 
























654* 


706* 


707* 


708* 


709* 


1603 


1624$ 


1631 












1393 


2552# 
























804 


2539# 
























790 


2536# 
























1693 


25178 
























1660 


25158 
























526 


5388 


645 






















1740 


2530# 

























TAil MANUAL INTERVENTION TEST MAINDEOt 1-DZTAOC 
DZTACC„NEW CROSS REFERENCE TABLE — USER SYMBOLS 



MACY11 27(732) ll-JUN-76 13:51 PAGE 60 



MSGPRI 


012606 


MSGVEC 


012576 


MTACS 


012620 


MTADB 


012626 


MTAPE 


013000 


MTAPRI 


012646 


MTAVEC 


012635 


MTUPWR 


012674 


MWRTLK 


013021 


MYES 


012667 


NEXT 


007U6 


NOTA 


007074 


NOTB 


007106 


NOTLGL 


007130 


NXTDRV 


010610 


OFFLINs 


001000 


OK 


002164 


PATTRN 


010464 


PIRQ a 


177772 


PIRQVEs 


000240 


PR0 s 


000000 


PR1 = 


000040 


PR2 = 


000100 


PR3 = 


000140 


PR4 = 


000200 


PR5 s 


000240 


PR6 = 


000300 


PR7 a 


000340 


PS a 


177776 


PSW s 


177776 


PWRST 


002172 


PWRVECa 


000024 


RDBLK 


010530 


RDCHR s 


104407 


RDLIN a 


104410 


RDOCT a 


104411 


RDSUB 


007756 


READ a 


000004 


READY = 


000040 


RESVECs 


000010 


REWINDa 


000016 


RGPBLK 


010140 


SAVPC 


001202 


SAVPS 


001204 


SETBUF 


010352 


SFBG a 


000014 


SFFG s 


000012 


SFFGSB 


010234 


STACK s 


001100 


START 


002204 


STKLMTa 


177774 


SWR 


001140 



1716 
1707 
1728 
1731 
819 
1737 
1734 
732 
886 
1749 
1670 
1668 
1672 
1665 
1811 
199# 
641 
1998* 
868 
180# 
103# 
104S 
105# 
106S 
1078 
108$ 
109# 
110# 
83« 
84# 
6453 
175# 
1871 
1741 
1662 
1694 
237 
184# 
1284 

203# 
1956 
1708 
1898 
1128 
1813 
239 
384# 
385# 
1837 
188# 
187* 
240 

74# 
644 

85# 
291 



2521* 

2519# 
2523# 
2524# 
2546# 
2528# 
25268 
2533# 
2549» 
2532S 
1674 
1671# 
1675# 
1676 
1843 
737 
6438 
2004* 



84 

2507 

496* 
1930 
1766 
2326 
1708 
1861* 

328 

1308 

304 

2021 

303 

1168 

1845 

1920S 

1604* 

1606* 

1891 

775 

770 

1948# 

488 

647S 

309 



1682# 

1866 

795 



497* 
20358 
2285 
24668 
1717 
1865 

755 
1328 

311 
2039 

325 
1181 
1868 
1924 
1605* 
1620 
1985# 
931 
926 
1952 
1806 
1444 

363# 



1685 

1897 

809 



1925 
810 



2465* 

24678 
1873 

911 
1339 

326 
2085 

685 
1228 
1899 
1932 
1621 
1634* 

971 

966 

1963 

1838 



951 

1343 

333 



702 
1268 
1927 
1936 
1632* 
1648 

1031 
1026 



1953 
824 



20588 
1089 



991 

2037 

686 



780 
1282 
1955 



1071 
1066 



837 
1305 



1123 
1118 



1051 
1637 



892 
1326 



1163 
1158 



1103 
1814 



936 
1337 



1223 
1187 



1143 
1846 



976 
1358 



1263 

1218 



1183 
1869 



989 
1378 



1288 
1258 



1203 
1900 



1036 
1397 



1933 
1958 



1243 
1928 



1076 
1410 
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1493 


1534 


1541 


1546 


1550 


1987 


1991 








2095 


2182 


2219* 


2482 


2495* 






SWREG 




000176 


229# 


516 


530 


677 


1987 


2000 


2006 


SW0 


5S 


000001 


1383 














SW00 


= 


000001 


128# 


138 












SW01 


S 


000002 


127S 


137 












SW02 


S 


000004 


126# 


136 












SW03 


S 


000010 


125& 


135 












SW04 


s 


000020 


1248 


134 












SW05 


a 


000040 


123* 


133 












SW06 


a 


000100 


122# 


132 












SW07 


= 


000200 


121# 


131 












SW08 


a 


000400 


120$ 


130 












SW09 


5 


001000 


119* 


129 












SW1 


= 


000002 


137* 














SW10 


s 


002000 


118« 














swu 


2 


004000 


117# 


1787 












SW12 


s 


010000 


116* 














SW13 


s 


020000 


115# 














SW14 


s 


040000 


1141 














SW15 


a 


100000 


113# 














SW2 


s 


000004 


1368 














SW3 


a 


000010 


135# 














SW4 


s 


000020 


1341 














SW5 


s 


000040 


133# 














SW6 


s 


000100 


132* 














SW7 


s 


000200 


131f 














SW8 


ss 


000400 


1308 














SW9 


B 


001000 


129# 














TACSH 




001210 


388# 


1702* 


1703* 










TACSL 




001206 


387# 
2595 


576 


650 


1699* 


1702 


1729 


1807 


TADBH 




001214 


390# 


1705* 


1706* 










TADBL 




001212 


389$ 


651 


1701* 


1705 


1732 


1808 


1840 


TAPRIO 


001222 


3928 


1727* 


1738 










TAVEC 




001216 


391# 


473 


647* 


648* 


1713* 


1715* 


1735 


TBITVEs 


000014 


171# 














TDRV 




002274 


659 


661# 












TIMERRs 


002000 


198S 


1089 












TKVEC 


s 


000060 


1788 














TPVEC 


a 


000064 


179# 














TRAPVEs 


000034 


177# 


494* 


495* 










TRTVECa 


000014 


172# 














TR,REQs 


000200 


2018 














TST1 




002422 


683 


696# 












TST10 




003224 


806 


821 


825 


830$ 








TST11 




003422 


881# 














TST12 




003772 


884 


984# 












TST13 




004332 


986 


1084$ 












TST14 




004644 


1086 


11768 












TST15 




005206 


1178 


12768 












TST16 




005362 


1279 


1321* 












TST17 




005500 


1323 


1351 # 












TST2 




002502 


699 


713# 












TST20 




'005564 


1354 


1366 


13718 










TST21 




005642 


1374 


1384 


1389# 
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TST22 


005716 


TST3 


002646 


TST4 


002714 


TST5 


003062 


TST6 


003120 


TST7 


003164 


TYPE s 


104401 


TYPERR 


006512 


TYPOC s 


104402 


TYPON s 


104404 


TYPOS s 


104403 


UNIT s 


000400 


WAITBEk 


104412 


WAITXFs 


104413 


WAIT.F 


006734 


WAIT.O 


006630 


WAIT! 


006660 


WAIT2 


006700 


WAITS 


006714 


WAIT4 


006676 


WFG » 


000000 


WFGSUB 


007604 


WGBLOP 


010042 


WGPBLK 


010036 


WLOOP 


007674 


WRITE s 


000002 


WRTBLK 


010466 


WRTLOC= 


010000 


WRTSUB 


007670 


SAUTOB 


001134 


SBDADR 


001122 


SBDDAT 


001126 


SBELL 


001172 


SCHARC 


011174 


SCKSWR 


011200 


SCMTAG 


001100 


SCMi s 


000002 


SCM2 a 


000004 


SCM3 s 


000002 


$CNTLG 


011725 


SCNTLU 


011720 


SCRLF 


001177 


SDOAGN 


006024 


$ENDAD 


006014 



888 


1401 


1406$ 






















716 


728# 
























738 


743# 
























744 


782 


787# 






















734 


796 


801# 






















811 


816# 
























526 


645 


662 


667 


668 


717 


721 


1434 


1536 


1544 


1566 


1575 


1577 


1580 


1582 


1586 


1594 


1660 


1682 


1693 


1707 


1716 


1728 


1731 


1734 


1737 


1740 


1747 


1749 


1763 


1764 


1774 


1779 


1782 


1788 


2136 


2193 


2194 


2197 


2210 


2221 


2240 


2289 


2292 


2296 


2409 


2457S 


2504 










1543 


15668 
























1591 


1730 


1733 


1736 


1739 


2196 


2458# 














24608 

2459# 

200# 


























660 


2064 


2084 




















703 


705 


746 


751 


756 


761 


766 


771 


776 


794 


838 


853 


864 


866 


877 


893 


990 


996 


1182 


1186 


1188 


1283 


1287 


1289 


1292 


1301 


1306 


1313 


1315 


1327 


1331 


1334 


1336 


1338 


1342 


1347 


1357 


1359 


1361 


1377 


1379 


1381 


1398 


1411 


1817 


1903 


1934 


1959 


1975 


2028 


2049 


2468# 


846 


851 


857 


862 


870 


875 


992 


994 


1184 


1285 


1311 


1329 


1340 


1344 


2020 


2038 


2469# 




















16298 


2469 
























1601* 


2468 
























16078 


1615 


1618 






















1602* 


1614S 
























1608 


1612 


1620# 






















1610 


1 61 3# 
























182S 


704 


745 


865 


901 


941 


1001 


1041 


1093 


1133 


1193 


1233 


1335 


1360 


1399 


1816 


1902 




















2 35 


1806$ 


1810 


1821 




















18928 


1896 


1910 






















238 


1891# 
























18388 


1842 


1852 






















1838 


306 


750 


845 


856 


869 


906 


946 


1006 


1046 


1098 


1138 


1198 


1238 


1293 


1380 


2019 




















1848 


1906 


2018# 






















1963 


902 


907 


912 


917 


922 


927 


932 


937 


1042 


1047 


1052 


1057 


1062 


1067 


1072 


1077 


1094 


1099 


1104 


1109 


1114 


1119 


1124 


1129 


1194 


1199 


1204 


1209 


1214 


1219 


1224 


1229 


1400 


2091 










236 


18378 
























3608 


534* 


2190 


2311 




















355* 


























3578 


1530* 


2593 






















379# 


1536 


1562 






















2138* 


2148* 


2155 


2164* 


2169# 


















21828 


2464 
























3438 


483 


484 


492 


498 


499 


500 














375# 


376# 


3778 






















375# 


3768 


3778 






















3738 


375 
























2193 


2306# 
























2210 


2305a 
























3818 


668 


1544 


1562 


1566 


1577 


1582 


1586 


1763 


1788 


2137 


2172 


2221 


2305 


























1430 


1436 


1442# 






















524 


589 


639 


14388 


1557 
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$ENDCT 


005774 


498 


14328 








SENDMG 


006033 


1434 


14468 








SENULL 


006030 


14458 










SEOP 


005740 


14228 










SEOPCT 


005766 


498* 


14298 


1433 






SERFLG 


001103 


346# 


1453 


1482 


1484 


1490* 


SERMAX 


001115 


3528 


501* 


1484 


1506* 


1511 


SERROR 


006320 


492 


15258 








SERRPC 


001116 


353# 


1538* 


1539* 


1540 


1562 


$ERRTB 


001236 


411# 


1573 








SERTTL 


001112 


3508 


1537* 


1562 






SESCAP 


001170 


3788 
1553 


500* 
1555 


744* 
1562 


832* 


884* 


SFILLC 


001156 


371# 


2141 


2172 






SFILLS 


001155 


3708 


2172 








SGDADR 


001120 


3548 










$GDDAT 


001124 


356# 


1529* 


2593 






$GET42 


006004 


1435# 










SGTSWR 


011250 


21948 


2462 








$HD = 


000000 


11 










SHIOCT 


012054 


2343* 


23488 








SICNT 


001104 


3478 


1497* 


1498 


1500* 


1510 


SILLUP 


012534 


2474 


2490 


2509# 






SINTAG 


001135 


361# 


2222 


2311 






SITEMB 


001114 


3518 


1540* 


1562 


1568 




$LF 


001200 


382# 


1562 


2172 


2296 


2305 


SI.PADR 


001106 


348# 


502* 


730* 


788* 


802* 






1391* 


1488* 


1503* 


1508 


1510 


SLPERP 


001110 


3498 


503* 


1488 


1504* 


1510 


$MAIL s 


#«•«##■» U 


520 


530 


1503 


1546 


2125 


SMNEW 


011743 


2197 


23098 








SMSWR 


011732 


2194 


2307# 








SMXCNT 


006316 


1501 


1510# 








SNULL 


001154 


3698 


2143 


2172 






SNWTSTs 


000001 


693U 


710* 


725# 


7408 


7848 






13181 


13488 


13688 


13868 


14038 


SOCNT 


012300 


2381* 


2410* 


2423# 






SOMODE 


012302 


2376* 


2380* 


2385 


2388* 


2399* 


SOVER 


006302 


1465 


1481 


1489 


1499 


15078 


SPASS 


001100 


3448 


652 


698 


715 


1426* 


SPOWER 


012542 


2505 


25128 








SPWRAD 


012530 


2507# 










SPWRDN 


012370 


496 


2474# 


2502 






SPWRMG 


012524 


25058 










SPalRUP 


012442 


2484 


2490$ 








SQUES 


001176 


380# 


1562 


1682 


1747 


1779 


SRDCHR 


011462 


22538 


2465 








$RDDEC= 


»«■#»»«• U 


2468 










SRDLIN 


011602 


22818 


2466 








SRDOCT 


011754 


2321# 


2467 








SRDSZ s 


000010 


2274# 










SREGAD 


001160 


3738 










SREG0 


001162 


3758 


1527* 


2590 


2591 


2593 


SREGl 


001164 


3768 


1528* 








$RTNAD 


006026 


1444# 










SR2A s 


$####«■ U 


2468 











2595 2597 



1279* 1323* 



883* 985* 1085* 1177* 1278* 1353* 1373* 
1810* 1842* 1865* 1896* 1924* 1952* 1972* 
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SSAVREss #«»##«• U 

8SAVR6 012540 

SSCOPE 006046 

SSETUPs 000137 

$STUP s 177777 

8SVLAD 006254 

SSWR £ 167400 



SSWRMKs 
STIMES 

STKB 
$TKS 

STN b 



001146 
001144 
000023 



STPB 


001152 


STPFLG 


001157 


STPS 


001150 


STRAP 


012304 


0TRAP2 


012326 


STRP s 


000014 


STRPAD 


012340 


$TSTNM 


001102 


STTYIN 


011710 


ITYPBNs 


&«■#### u 


STYPDSa 


«■#&&## u 


STYPE 


010760 


STYPEC 


011130 



STYPEX 011176 

STYPOC 012102 

STYPON 012116 

STYPQS 012056 
SXTSTR 
SSGET4s 

S0FILL 012301 

§40CATs »**#»«■ U 

s 013474 



2468 
2483* 


2491 


2492* 


2493* 


25S18 


















490 


1462# 
























469# 


489 


490 


492 


494 


496 


498 


499 


500 


502 


524 


527 


1424 


1463 


1526 


1549 


1557 


2177 


2311 
















469$ 


























1473 


3.502 4 
























18 


11 


62 


63 


64 


65 


66 


67 


68 


377 


378 


379 


499 


500 


502 


503 


697 


714 


729 


744 


788 


802 


817 


831 


882 


985 


1085 


1177 


1277 


1322 


1352 


1372 


1390 


1407 


1417 


1425 


1437 


1443 


1445 


1454 


1455 


1456 


1457 


1458 


1464 


1476 


1478 


1479 


1482 


1483 


1484 


1491 


1492 


1493 


1504 


1507 


1510 


1517 


1518 


1519 


1520 


1521 


1534 


1541 


1546 


1550 


1562 


1787 


2508 




















68 


69 


1458 


1459 


1480 


















377S 


499* 


697* 


714& 


729® 


831* 


882* 


1277* 


1322* 


1352* 


1372* 


1390* 


1407< 


1425* 


1491* 


1498 


1501® 


1510 


1787® 
















366$ 


2175 


2186 


2203 


2257 


2263 
















365S 


2175 


2184 


2200 


2224* 


2255 


2261 














1* 


11 


693 


697# 


699 


710 


714# 


716 


725 


729# 


734 


738 


740 


744# 


782 


784 


788# 


796 


798 


8028 


806 


811 


813 


817# 


821 


825 


827 


8318 


878 


8828 


884 


888 


981 


985# 


986 


1081 


1085# 


1086 


1173 


1177# 


1178 


1273 


12778 


1279 


1318 


13223 


1323 


1348 


1352* 


1354 


1366 


1368 


13728 


1374 


1384 


1386 


1390# 


1401 


1403 


1407® 












368« 


2161* 


2172 






















3728 


2119 


2172 






















367# 


2159 


2172 






















494 


2434® 
























2445# 


2456 
























24498 


24588 


24591? 


2460# 


2461» 


2462 


2463# 


2464 


24658 


2466 fi 


24678 


24688 


2469 


24708 


























2439 


24568 
























3458 


655* 


1424* 


1453 


1480 


1502® 


1507 


1511 


1533 


1562 








2282 


2283 


2300 


23048 




















2461 


























2461 


























21191 


2449 


2457 






















2140 


2147 


2154 


21598 


2160 


2226 
















2165 


2167 


2170# 






















23798 


2458 
























2378 


2381V 


2460 






















2374# 


2459 
























1467# 


























1437# 


























2375* 


2379* 


2389 


2424# 




















1464 


1543 
























2238 


2278 


289* 


299# 


3218 


3428 


383 


487 


502 


503 


538# 


665# 


1445 


1448 


1510 


1511 


1562 


15978 


17778 


17858 


2172 


2175 


2304# 


2305 


2311 


2486 


2510 


2569 3 
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